![]() |
Ayuda Lookup ComboBox
Hola a tod@s!
Tengo el siguiente problema con un DbLookup Combobox. Os situo: Tengo dos formularios, fMain y fEditor. Desde un botón en fMain abro fEditor cargando en un Grid los datos de una tabla (hasta aquí correcto). Ahora quier visualizar en un DBLookupComboBox los datos de un campo (por código) y lo hago de la siguiente manera: Código del botón: fEditor.tPaisLu.DatabaseName:=rutaDeLaTabla; fEditor.tPaisLu.TableName:='miTabla.dbf'; fEditor.dstPaisLu.DataSet:=fEditor.tPaisLu; fEditor.DBLookupCbPais.DataField:='CODPAIS'; fEditor.DBLookupCbPais.DataSource:=fMain.dsDestino; fEditor.DBLookupCbPais.DataSource.DataSet:=fMain.tDestino; fEditor.DBLookupCbPais.ListField:='NOMBRE'; fEditor.DBLookupCbPais.KeyField:='ID_PAIS'; tDestino es la tabla que visualizo en un DBGrid en el fEditor y se encuentra en fMain. tPaisLu es la tabla que quiero ver en el DBComboBox y se encuentra en fEditor. Es decir visualizo un campo pero en realidad se guarda otro. No hay forma de que se visualice nada. Alguna idea? Un saludo a tod@s! |
Le estas errando de propiedada, no tenes que completar la propiedad DataSource del dbLookUpComboBok sino la propiedad ListSource.
Fijate en este hilo que esta puesto como funciona http://www.clubdelphi.com/foros/showthread.php?p=344817 Saludos |
Según lo que me indícas, quedaría de la siguiente manera?
fEditor.tPaisLu.DatabaseName:=ruta + '\DB\'; fEditor.tPaisLu.TableName:='Pais.dbf'; fEditor.dstPaisLu.DataSet:=fEditor.tPaisLu; fEditor.DBLookupCbPais.DataField:='CODPAIS'; //Ahora le indico donde lo quiero guardar fEditor.DBLookupCbPais.DataSource.DataSet:=fMain.tDestino; //Ahora le indico que quiero listar fEditor.DBLookupCbPais.ListSource:=fEditor.dstPaisLu; fEditor.DBLookupCbPais.ListField:='NOMBRE'; fEditor.DBLookupCbPais.KeyField:='ID_PAIS' Me da un error! |
|
El código es correcto. No es que me de error, sino que no me carga ninngún dato en el combo.
|
La franja horaria es GMT +2. Ahora son las 07:17:25. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi