Yo es que no entiendo bien bien que es lo que quiere hacer...
para coger los valores de cada campo (por cierto, código no es un nombre de campo correcto) puedes o bien, sabiendo a que dataset esta relacionado
Código Delphi
[-]
cod := AdoQuery1.FieldByName('codigo').Asinteger;
o bien desde el dataset del dbgrid (que es el mismo solo que accedido de manera mas relativa)
Código Delphi
[-]
cod := DBGrid1.DataSource.DataSet.FieldByName('codigo').Asinteger;
no sobreescribas variables, pues no tienes sentido
Cita:
procedure Tcodigo.BitBtn1Click(Sender: TObject);
var
cod: Integer;
desc: String;
begin
cod:= adotable1.fieldbyname('Código').Value;
desc:= adotable1.fieldbyname('Servicio').Value; // con lo de despues...esto para que sirve?
cod:= adotable2.fieldbyname('Código').Value;
desc:= adotable2.fieldbyname('Descripción').Value;
edit1.Text:=inttostr(cod);
edit2.Text:= desc;
end;
|
y si nos explicas un poco mejor que es lo que quieres hacer...