Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Unexplainable result of GetFldState()
Message
 
 
To
28/04/2005 23:31:33
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Miscellaneous
Thread ID:
01009520
Message ID:
01009668
Views:
17
>>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
Previous
Reply
Map
View

Click here to load this message in the networking platform