Neftali. Mil gracias por tu interés. La verdad el tema es mucho mas que esto. De hecho esto lo resolví enviando toda la información al frame para gestionar desde allí los datos sin necesidad de "Saltar" de el form a los frames y viceversa.
Le cuento a todos que el tema a plantear realmente es mas complejo y necesito ayuda muy urgente.
Aquí vamos:
tengo la siguiente consulta SQL
Código SQL
[-]
SELECT
C.Nombre as Criterio_1,
C.Concepto As Concepto_1,
C1.Nombre As Criterio_2,
C1.Concepto As Concepto_2
FROM
Criterios_Proyectos R
INNER JOIN Criterios C ON R.Id_Criterio = C.Id_Criterio
INNER JOIN Criterios C1 ON R.Id_Criterio <> C1.Id_Criterio AND C.Id_Criterio < C1.Id_Criterio
WHERE
R.Id_Proyecto = :Indicador AND
EXISTS (SELECT 1 FROM Criterios_Proyectos R2 WHERE R2.Id_Criterio = C1.Id_Criterio AND R2.Id_Proyecto = R.Id_Proyecto)
ORDER BY
C.Id_Criterio
esta consulta hace combinaciones sin repetir de una tabla llamada Criterios_proyectos. Para nuestro ejemplo en concreto salen 36 combinaciones correspondientes a 9 criterios.
Necesito hacer una matriz con esta consulta. Necesito que en un StrinGrid me salga esa matriz con los datos como a continuación los pongo en la imagen.
El codigo que uso es el siguiente pero me da un error de Rangue Check Error
Ese error no deja avanzar el procedimiento.
Código Delphi
[-]
SetLength(matriz, DataModule1.IBQListado.RecordCount, DataModule1.IBQListado.FieldCount);
i := 0;
while not DataModule1.IBQListado.Eof do
begin
for j := 0 to DataModule1.IBQListado.FieldCount - 1 do
matriz[i][j] := DataModule1.IBQListado.Fields[j].Value;
DataModule1.IBQListado.Next;
Inc(i);
end;
fr.StringGrid1.RowCount := DataModule1.IBQListado.RecordCount + 1;
fr.StringGrid1.ColCount := DataModule1.IBQListado.FieldCount;
for i := 0 to DataModule1.IBQListado.FieldCount - 1 do
fr.StringGrid1.Cells[i, 0] := DataModule1.IBQListado.Fields[i].FieldName;
for i := 0 to DataModule1.IBQListado.RecordCount - 1 do
for j := 0 to DataModule1.IBQListado.FieldCount - 1 do
fr.StringGrid1.Cells[j, i + 1] := matriz[i][j];
Por favor es urgente una manito en este tema. Gracias a todos