FiveTech Software tech support forums

... un pequeño modulo de captura y uso un dbcombo el cual se llena de una tabla dbf, esto sin problema me muestra el ListField y me regresa el ItemField sin probelmas,de igual manera uso un combobox, lo "Weno" es cuando deseo consulatar un registro para editar al cargar los datos ...

Estimados: Tengo el siguente DBCombo REDEFINE DBCOMBO aO[_CmbM1] VAR cIDCpto ID 100 OF aO[_DlgM] UPDATE ; ALIAS ::oDbConc:cAlias ; ITEMFIELD "FCON01" ; LISTFIELD "FCON02" el recurso, hecho con Workshop, es este: http://img130.imageshack.us/img130/6359/resdbcombo.jpg ...

... } ocl_dias:bLostFocus = { || ocl_dias:setcolor(0, CLR_WHITE ) } REDEFINE DBCOMBO oCbx4 VAR cca_tarje ID 101 OF oDlg ; ALIAS "ttarje" ; ITEMFIELD "ttcod" ; LISTFIELD "ttdsc"

... tenia definido el dbcombo asi REDEFINE DBCOMBO oCbx VAR cRegion ID 3 OF oDlg UPDATE ALIAS "REGIONES" LISTFIELD "NOMB_REGION" ITEMFIELD "CODI_REGION" para obtener el valor de lo que el usuario digito en la busqueda hice esto cbusqueda := oCbx:VarGet() y esto ya lo ...

... en la lista del dbcombo ej: REDEFINE DBCOMBO oCbx VAR cRegion ID 3 OF oDlg UPDATE ALIAS "REGIONES" LISTFIELD "NOMB_REGION" ITEMFIELD "CODI_REGION" el tema es que me muesta un lisbox con el campo "NOMB_REGION" y yo puedo escribir para hacer la busqueda ...

Hi,

Is it possible to use RecordSet along with DbCombo. ie just like using a DBF with ITEMFIELD and LISTFIELD. My intention is to avoid creating array and just assign a recordset to the DbCombo Control

Regards

Anser

#INCLUDE "DBCOMBO.CH"

REDEFINE DBCOMBO OFAM VAR myvar ID xxx OF ODLG ;
ALIAS (myalias) ;
ON CHANGE ODLG:UPDATE();
ITEMFIELD "xxxxxxx" ;
LISTFIELD "yyyyyyy"

HTH

Richard

... asi por default) y se define de esta manera: Redefine dbCombo oIns var odbDGFolios:id id 107 of oDlg; Alias "Inspect" ; ListFIeld 'inspector'; ItemField 'idc' oIns:cSearchKey('inspector') <---- Asip oIns:cToolTip:="Selecciona un Inspector..." si son observadores inspector es el ListFiled ...

... ? odbInspect:Activate() odbInspect:SetOrder(2) Redefine dbCombo oIns var odbDGFolios:id id 107 of oDlg; Alias "Inspect" ; ListFIeld 'inspector'; ItemField 'idc' oIns:cToolTip:="Selecciona un Inspector..." oIns:cSearchKey() <--- Es correcto ? un cable por favor.... Gracias

... 'Descrip' ; UPDATE Disculpa la intromision, pero... no seria esto: REDEFINE DBCOMBO oCbx VAR oEnc:Estado ID 1005 OF oDlg; ALIAS oEnc:cAlias ; ITEMFIELD 'Cod' ; LISTFIELD 'Descrip' ; UPDATE Saludos,

... <cMsg> ] ; [ WHEN <uWhen> ] ; [ BITMAPS <acBitmaps> ] ; [ ON DRAWITEM <uBmpSelect> ] ; [ ALIAS <cAlias> ] ; [ ITEMFIELD <cFldItem> ] ; [ LISTFIELD <cFldList> ] ; [ <list: LIST, PROMPTS > <aList> ] ;

... haciendo algo mal? Saludos y gracias. Ruben Fernandez. Este es el codigo REDEFINE DBCOMBO oCombo VAR cFact ID 110 OF oDlgTodo ; Alias DBFAC ; ItemField "Numfac" ; ListField "Numfac" ; Update

... Ser Mayor Que Cero"), .F.),; (.t.))}) /* REDEFINE DBCOMBO oNlab VAR cnumlab ID 109 OF ODLG COLOR rgb(78,20,240),rgb(0,150,151) ; alias "labor" itemfield "CVELAB" listfield "descon" ; VALID Eval ( { || muelabhr(CNUMLAB),; IF (!maelab->(dbSeek(cnumlab)),; (msgStop ("No Existe Labor"), .F. ...

... <cMsg> ] ; [ WHEN <uWhen> ] ; [ BITMAPS <acBitmaps> ] ; [ ON DRAWITEM <uBmpSelect> ] ; [ ALIAS <cAlias> ] ; [ ITEMFIELD <cFldItem> ] ; [ LISTFIELD <cFldList> ] ; [ <list: LIST, PROMPTS > <aList> ] ;

... TITLE "Altas siniestros" BRUSH oBrush REDEFINE GET cRefe ID 10 OF oDlg REDEFINE DbCombo oCbx VAR cClaveCia ID 11 OF oDlg; alias "Compa"; ITEMFIELD "ClaveCia"; LISTFIELD "ClaveCia"; update REDEFINE GET cNumSini ID 12 OF oDlg REDEFINE GET fFeSini PICTURE "@D" ID 13 OF oDlg REDEFINE GET ...