Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   como pasar datos de un DBLookupComboBox a otro DBLookupComboBox (https://www.clubdelphi.com/foros/showthread.php?t=76849)

francodelphi 30-11-2011 20:41:07

como pasar datos de un DBLookupComboBox a otro DBLookupComboBox
 
Hola , les consulto sobre esto . En un formulario elijo datos en un DBLookupComboBox y quiero que cuando pase de formulario , ese dato que elegí se me pase al otro DBLookupComboBox.

Casimiro Notevi 30-11-2011 20:51:42

¿Al otro?, ¿cual otro? :confused:
Deberías explicar detalladamente lo que haces, cómo, poner código, etc.
También te podemos contestar "genéricamente", pero puede que no te sirva, así que es mejor que especifiques.

ecfisa 30-11-2011 21:02:29

Hola.

Si los dos TDBLookupComboBox tienen igualadas sus propiedades ListSource, ListField y KeyField, tendrías que enviar al otro form el valor KeyValue del primer DBLookupComboBox para asignarlo al segundo.

Una forma simple sería:

Form1:
Código Delphi [-]
...
implementation

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Self) do
  try
    DLCBValue:= DBLookupComboBox1.KeyValue;
    ShowModal
  finally
   Free
  end;
end;
...

Form2:
Código Delphi [-]
type
  TForm2 = class(TForm)
    ...
    DBLookupComboBox2: TDBLookupComboBox;
    procedure FormShow(Sender: TObject);
  private
  public
    DLCBValue: Variant;
  end;
...
implementation

procedure TForm2.FormShow(Sender: TObject);
begin
  DBLookupComboBox2.KeyValue:= DLCBValue
end;
...

Saludos.

olbeup 30-11-2011 21:02:34

Cita:

Empezado por Casimiro Notevi (Mensaje 420030)
¿Al otro?, ¿cual otro? :confused:
Deberías explicar detalladamente lo que haces, cómo, poner código, etc.
También te podemos contestar "genéricamente", pero puede que no te sirva, así que es mejor que especifiques.

Al otro lado, al lado oscuro, Luke yo soy tú padre, genéricamente digo.


La franja horaria es GMT +2. Ahora son las 15:13:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi