como pasar datos de un DBLookupComboBox a otro DBLookupComboBox

[francodelphi]

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]

¿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]

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:

...
implementation

uses Unit2;

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


Form2:

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]

¿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.