Hola gente espero que esten bien, tengo una consulta.
Tengo dos Dbgrid, DBGrid1 cuando selecciono la fila de uno en el otro me muestro los detalles relacionados en DBGrid2, en DBGrid1 cuando hago multiseleccion, en DBGrid2 no puedo hacer que me aparezcan los detalles relacionado a cada seleccion del DBGrid1.
Tengo este codigo, por favor si me podrian ayudar.
Código Delphi
[-]procedure TFORMINGRESO.multiselect;
var
X: Integer;
begin
if DBGINGRESO.SelectedRows.Count = 0 then
begin
MessageBox (Handle, ' DEBE SELECCION AL MENOS 1 FILA PARA ELIMINAR ', ' SISTEMA CROSSROASD ', MB_OK);
Exit;
end
else
begin
for X := 0 to DBGINGRESO.SelectedRows.Count -1 do
with MDBRIONES.FDQBUS_DET_ING Do
Begin
DBGINGRESO.DataSource.DataSet.GotoBookmark(TBookmark(DBGINGRESO.SelectedRows.Items[X]));
SQL.Clear;
SQL.Add ('SELECT I.*, E. nom_esp, T. nom_tip FROM det_ingreso I LEFT JOIN especie E ON E.id_esp = id_esp_deting LEFT JOIN tipo T ON T.id_tip = id_tip_deting');
SQL.Add ('WHERE id_ing_deting = :BUS4 ORDER BY LENGTH(cod_deting)ASC');
params.ParamByName('BUS4').AsInteger := DBGINGRESO.datasource.dataset.fieldbyname('id_ing').Asinteger;
Open();
DBGDET_INGRESO.DataSource := MDBRIONES.DSBUS_DET_ING;
end;
end;