Multiseleccion DBgrid

[kainchu3102]

No estoy entendiendo mil disculpas, lo probe de ese modo no me sale.

[Garada]

Aquí tienes el código más desarrollado, usa el debug y comprueba las variables por si hay algo que está como se esperaba.

Código Delphi [-]
procedure TFORMINGRESO.multiselect;
 var
  X: Integer;
  sClaves: string; // Variable para guardar las claves de los registros seleccionados
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
     sClaves := ''; // Inicializas la variable
     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]));
        sClaves :=sClaves + ',' + DBGINGRESO.datasource.dataset.fieldbyname('id_ing').AsString; // Vas asignando las claves
     end;

     Delete(sClaves, 1, 1); // Se elimina la ',' inicial que sobra
     // Debes tener en sClave algo como '2,6,34,245'

     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 IN (' + sClaves + ') ORDER BY LENGTH(cod_deting)ASC'); // Cambias el WHERE
     // en el SQL.Text debes tener algo como '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 
     // WHERE id_ing_deting IN (2,6,34,245) ORDER BY LENGTH(cod_deting)ASC'

     Open();
     DBGDET_INGRESO.DataSource := MDBRIONES.DSBUS_DET_ING;
  end;
end;

[kainchu3102]

me estaria marcando un error en esta linea

Delete(sClaves, 1, 1); // Se elimina la ',' inicial que sobra


[dcc32 Warning] Fprecio.pas(75): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

[kainchu3102]

Esto es basicamente lo que quiero que haga las multiples selecciones y me muestre los detalle de cada seleccion

[kainchu3102]

[Garada]

Es un aviso, no debería impedirte compilar el programa.

También es raro el aviso en esa línea, (¿seguro que es esa?) prueba con este cambio por si no esta usando otro procedimiento que se llame igual.

Código Delphi [-]
System.Delete(sClaves, 1, 1); // Se elimina la ',' inicial que sobra