Cita:
Empezado por Neftali [Germán.Estévez]
Para el problema de que no compila, deberías decir el error que te da.
Para el "Access Violation" puedes ejecutar paso a paso y ver dónde está el problema. Posiblemente algo que no está asignado correctamente.
En esa línea además estás asignando a la PickList (que es un TStringList) otro objeto, cosa que te va a dar problemas.
Añade los elementos a la lista, pero no sustituyas el objeto.
Algo así:
Código Delphi [-] DataProductos.Open;
while not DataProductos.Eof do begin
DBGrid1.Columns[2].PickList.Add(DataProductos.FieldByName('Codigo').AsString);
DataProductos.Next;
end;
|
Bueno hasta ahora hice como me dijiste en el after open del tclientdataset del pedido:
Código Delphi
[-]procedure TDataModule1.cdspedidotemporalAfterOpen(DataSet: TDataSet);
begin
DataModule1.cdsproductos.First;
while not DataModule1.cdsproductos.eof do
begin
Form3.gpedidotemp.Columns[1].PickList.Add(DataModule1.cdsproductosCodigo.AsString) ;
DataModule1.cdsproductos.Next;
end;
end;
Y obtengo como te dije:
https://imgur.com/a/jCMQ9Lr
Un error, osea no entiendo porque no puedo asignar el contenido del dataset a la columna de la grilla.