FiveTech Software tech support forums

... -1, 0, 0, 0, 0, 3 ) if File( cFileName ) oMemo:Load( cFileName ) odlge:SetText(EXE_VER+": "+cFileName) aUserFunc:=dameaUserFunc() oUserCbx:SetItems(aUserFunc) IF LEN(aUserFunc)>0 oUserCbx:VarPut( aUserFunc[1] ) ENDIF oMru:Save(lower(cFileName)) lNeedCmp := .t. endif oMemo:AdjClient() ...

... siguientes. Estan bajo la clausula REDEFINE COMBOBOX oCombo VAR cModelos ITEMS aModelos ID 170 OF oDTipoV UPDATE Los combobox los vacio con oCombo:SetItems( {} ) y procedo a rellenarlos con oCombo:ADD( cModelo ) Todo lo hace correctamente, con la salvedad de que con Windows XP los combobox usas ...

seria algo assim:



REDEFINE COMBOBOX oOBJETO var cVARIAVEL items aITEMSCOMBO ID 115 OF oDld


oOBJETO:SetItems(aITEMSCOMBO) //PARA RECARREGAR


Espero ter ajudado

... de ID de recurso no va. Montando un recurso encima de otro tengo que tabular para cambiar de get/combo combo/get. Ademas esta sentencia ocombobox:setItems(aItems) me da este erroe: Error BASE/1132 Bound error: array access

... activate dialog... Funct newitem(cget) local aItems:=ocombobox:aItems if empty(cget) return .f. endif AAdd(aItems,cget) Asort(aItems) ocombobox:setItems(aItems) ocombobox:refresh() return .t. funct cambiarget cget=ccombo oget:refresh() return __________ Un saludo. LORENZO

... nClrBack, oFont , oCursor , cMsg , lUpdate,; bWhen , bChanged, lReadOnly, lSpinner, bUp , bDown ,; bMin , bMax, aItems ) CONSTRUCTOR METHOD SetItems( aItems ) METHOD AutoFill() END CLASS //----------------------------------------------------------------------------------------- METHOD New(nRow ...

Shumming,

Try this:

oComboBox:bSetGet = bSETGET( xNewVar )
oComboBox:SetItems( aNewItems )

The following code: REDEFINE COMBOBOX oMake VAR cvMake ITEMS aMake ; ON CHANGE ( aModel := SetVehModel( aModel, cvMake ), oModel:setItems( aModel ), oDvm:update( ), .T. ); ID 893 OF oDvm MESSAGE "Enter the make of the vehicle" UPDATE REDEFINE COMBOBOX oModel VAR oUnt:vehmod ITEMS aModel ...

oComboBox:SetItems( aNewItems )

Antonio,


prueba con esto:


SetItems Changes the items shown in the combobox

O sea, cuando validas que exista el cliente, actualizas el combobox.

oCien1:SetItems( aNomCiudad )
oCien1:refresh()



Saludos.

... nClrBack, oFont , oCursor , cMsg , lUpdate,; bWhen , bChanged, lReadOnly, lSpinner, bUp , bDown ,; bMin , bMax, aItems ) CONSTRUCTOR METHOD SetItems( aItems ) METHOD AutoFill() END CLASS //----------------------------------------------------------------------------------------- ...

Mario,


oCmb:Add( "Mi dato" ), hago
aTmpItems := ACLONE( oCmb:aItems )
aSort( aTmpItems )
oCmb:SetItems( aTmpItems )
oCmb:Refresh()


No lo probé, pero supongo deberia funcionar.

Saludos

... If ALLTRIM(xmarca)="TODAS LAS MARCAS" dbGotop() While ! Eof() aAdd( aItemFld ,55->MODELO ) aAdd( aItemList,55->MODELO ) dbSkip() End oMODELO:SetItems( aItemFld, aItemList ) oModelo:Refresh() * SET FILTER TO SELE 5 Use Catalogo && alias catalogo shared SET INDEX TO catalogo SysRefresh() ...

... application, I suggest simply not using numeric values for codes. If you have a legacy application, then I suggest using arrays and the dbcombo:setItems( aItems, aList ) method. File the aItems array with cValToChar( itemcode). And if you wish to use the incremental search then don't forget ...

... Use the concantenated array as the description (aList) array and the value array as the other (aItem). The value will then be returned. oCbx:setItems( aItem, aList ) I find that most users don't care a bit about the value (custno, etc.). It is the computer that needs that, so I usually just ...