Pasar tabla a matriz con dbgrid

[[egostar]]

Empezado por mramos65

En vista de la nula aportacion me he visto en la necesidad de replantear la pregunta, tal vez no fui lo suficientemente claro y segui intentando por mi cuenta:

Si te fijas un poco, ha habido varios compañeros que han entrado a ver el tema, si no se te contesta no es que haya una nula aportación, mas bien es un poco compleja tu pregunta.

Lo que planteas, no veo como hacerlo desde una simple consulta, al menos yo no lo veo tan claro pero en base a tu primer post, te recomiendo que trates con esto:

Creas 3 Querys.

Query1

Código SQL [-]
SELECT distinct(talla)
FROM invent.dbf

Query2

Código SQL [-]
SELECT distinct(color)
FROM invent.dbf

Query3

Código SQL [-]
SELECT talla, color,  count(color) as cantidad
FROM invent.dbf
group by talla,color

Edito: En Query3, no es necesario usar DISTINCT para obtener la información.

Hasta aqui, tendremos 3 consultas que nos van a dar la pauta para poder crear lo que deseas.

Agrega un TStringGrid a tu forma y un Botón

En el Botón pon este código

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i,j : Integer;
begin
  StringGrid1.ColCount := Query1.RecordCount+1;
  StringGrid1.RowCount := Query2.RecordCount+1;
  for i := 0 to Query1.RecordCount-1 do begin
      StringGrid1.Cells[i+1,0] := 'Talla '+Query1.Fields[0].AsString;
      Query1.Next;
  end;
  for i := 0 to Query2.RecordCount-1 do begin
      StringGrid1.Cells[0,i+1] := Query2.Fields[0].AsString;
      Query2.Next;
  end;
  for i := 0 to Query1.RecordCount-1 do begin
      for j := 0 to Query2.RecordCount-1 do begin
          StringGrid1.Cells[i+1,j+1] := Query3.Fields[2].AsString;
          Query3.Next;
      end;
  end;
end;

Me imagino que hay algo mas elegante, pero ya los compañeros del foro te podrán dar mejores respuestas.

Salud OS.