Copiar el valor de vario campo en un ComboBox
 

Hola a todos

Tengo un incombeniente haber si me pueden ayudar.

Tengo una base de datos Materias con el indice Salon, con los campos

Salon *
Materia1
Materia2
Materia3
Materia4
Materia5

Lo que necesito es copiar el valor de cada campo en un ComboBox. Todo es con InterBase.

Les agradesco haberme escuchado...

No entiendo. ¿Esas son las columnas de una tabla? ¿Quieres un combo para cada columna? Explica mejor.

// Saludos

Claro esas son las columnas, y quiero que me muetre en 1 solo Combobox el contenido de cada columna, de un registro que yo selecccione.

Gracias,

¿En un combo el contenido de cada columna?

Lo que no entiendo es eso de contestar con . ¿Qué es lo que desapruebas de mi respuesta?

En fin, yo usaría el evento AfterScroll del dataset que tengas asociado a tu tabla, y ahí añadiría uno a uno los campos:

Código Delphi [-]
ComboBox1.Items.Clear;
ComboBox1.Items.Add(DataSet['Salon']);
ComboBox1.Items.Add(DataSet['Materia1']);
ComboBox1.Items.Add(DataSet['Materia2']);

etc.

// Saludos

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.

Yo recomendaría usar AfterScroll ya que no depende del control que se use para visualizar los datos.

// Saludos

Hola roman.

Si estoy de acuerdo; mi intención fué sólo ejemplificar el código de respuesta al evento que el elija.

Saludos. :)

Hola a todos.

La respuesta fue acertada y me sacaron de un gran a puro.
roman diculpa lo del simbolo, me equivoque a mandar el mensaje.

El mejor foro de Delphi que he visto.

Gracias a todos...

¡ Totalmente de acuerdo !

No puedo menos que aprovechar este mensaje para agradecer a todos los compañeros por hacer que así sea. #:-)#

Saludos :)

Gracias, entre otros, a ti mismo :)