Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Unexplainable result of GetFldState()
Message
 
 
À
28/04/2005 23:31:33
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Divers
Thread ID:
01009520
Message ID:
01009668
Vues:
9
>>Actually, after I minute's thought, you probably up to something. For the state we're using a combobox with some custom code. Perhaps, there is an assignation there...
>
>If you don't find it soon, try setting a breakpoint.

It is the States combobox. If we switch to a textbox, the form behaves correctly. I think, there is something in internal behavior of combobox, which causes that problem. Perhaps, we need to assign controlsource after the Init and not in the property sheet.

Here is the Init code, may be you have better idea in order to solve that little problem:
*---------------------- Location Section ------------------------
*   Library: 	Acustomcontrols.vcx
*   Class: 		Cbostates
*   Method: 	Init()
*----------------------- Usage Section --------------------------
*)  Description:
*)

*   Scope:      Public
*   Parameters:
*$  Usage:
*$
*   Returns:
*--------------------- Maintenance Section ----------------------
*   Change Log:
*       CREATED 	04/13/2004 - JMW
*		MODIFIED    04/21/2005 - NN
*----------------------------------------------------------------
if !dodefault()
	return .f.
endif

if not used('c_States') and ! States_List('c_States')
	return .f.
endif

local lnSelect, lnRows, lnCols, laFields[1]
lnSelect = select()
select c_States
lnCols = afields(laFields)
lnRows = reccount()
dimension this.aRowSource [m.lnRows, m.lnCols]

copy to array this.aRowSource

this.rowsourcetype = 5 && Array
this.boundto = .t.
this.rowsource = "This.aRowSource"

select (m.lnSelect)
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform