Ver Mensaje Individual
  #6  
Antiguo 09-08-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por NISOTO Ver Mensaje
Lo que necesito es copiar el valor de cada campo en un ComboBox
Cita:
Empezado por NISOTO Ver Mensaje
quiero que me muetre en 1 solo Combobox el contenido de cada columna, de un registro que yo selecccione.
Hola NISOTO.

De acuerdo a lo que entiendo de tus mensajes, sería:
Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
const
  SEP = ', ';
var
  i: Integer;
  s: string;
begin
  DataSet.Open;
  ComboBox1.Items.Clear;
  while not DataSet.Eof do
  begin
    s:= '';
    for i:= 0 to DataSet.FieldCount-1 do
      s:= s + DataSet.Fields[i].AsString + SEP;
    SetLength(s,Length(s)-Length(SEP));
    DataSet.Next;
    ComboBox1.Items.Add(s);
  end;
  ComboBox1.ItemIndex:= 0;
end;

...

(* Código de respuesta a la selección *)
procedure TForm1.DBGrid1CellClick(Column: TColumn);
const
  SEP = ', ';
var
  i: Integer;
  s: string;
begin
  s:='';
  for i:= 0 to DataSet.FieldCount-1 do
    s:= s + DataSet.Fields[i].AsString + SEP;
  SetLength(s,Length(s)-Length(SEP));
  ComboBox1.ItemIndex:= ComboBox1.Items.IndexOf(s);
end;
...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita