Ver Mensaje Individual
  #6  
Antiguo 18-04-2017
Yhimy_1 Yhimy_1 is offline
Registrado
NULL
 
Registrado: abr 2017
Posts: 1
Reputación: 0
Yhimy_1 Va por buen camino
Repuesta !

Yo lo he trabajado así , y funciona correctamente ! espero que le sea de ayuda .


Código:
procedure TForm1.dbgrd1CellClick(Column: TColumn);
begin
     if cbbOpciones.ItemIndex =1 then
     begin
         txtNombre.Text      :=   Column.Field.DataSet.Fields[1].Value;
         txtCompanyName.text :=   Column.Field.DataSet.Fields[2].Value;
         txtCompanyId.Text   :=   Column.Field.DataSet.Fields[3].Value;
         txtCountry.Text     :=   Column.Field.DataSet.Fields[4].Value;

     end
     else if  cbbOpciones.ItemIndex =2 then
     begin
           txtCompanyId.Text   :=   Column.Field.DataSet.Fields[3].Value;
     end;


end;
Responder Con Cita