Cita:
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.