Dbgrid en Lazarus
Veamos ahora como asignar el valor de una variable a un dbgrid en lazarus, realmente lo que haré será actualizar el DataSource que hace de puente entre el dbgrid y el dataset, en este caso una conexión con Zeos ZConnection.
var vfrmCuadre: TfrmCuadre; vEstadillo: String; vFecha: String; implementation {$R *.lfm} { TfrmCuadre } procedure TfrmCuadre.FormCreate(Sender: TObject); begin DataModule1.ZQuery1.Open; end; procedure TfrmCuadre.DBGrid1ColExit(Sender: TObject); begin try if DBGRid1.SelectedIndex = 0 then vEstadillo:=Dbgrid1.Columns[0].Field.Text; if DBGRid1.SelectedIndex = 2 then vFecha:=Dbgrid1.Columns[2].Field.Text; except showmessage('Error en columna'); end; end; procedure TfrmCuadre.DataSource1UpdateData(Sender: TObject); begin if DataSource1.DataSet.FieldByName('ESTADILLO').Text= '' then DataSource1.DataSet.Fieldbyname('ESTADILLO').AsString := vEstadillo; if DataSource1.DataSet.FieldByName('FECHA').Text= '' then DataSource1.DataSet.Fieldbyname('FECHA').AsString := vFecha; end; |
Fuerza y honor.