Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ComboBox Erratic Fatal Error behavior
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00806399
Message ID:
00810073
Views:
26
Nice if the fatal error disappears. Have a nice trip...

P.S. Check UT private messages. I sent you one few days ago.

>Nadya:
>
>Found the problem. I remove all the editbox from the grid and left only the textbox. and commented the section that switch controls in the grid. My application did not required that type of functionality. Here is the code comented and the grid was left only with textbox control for display.
>
>
>Do CASE
>>	Case type("&l_fldname") = "N"
>>		lcsub = ALLTRIM(STR(&l_fldname))
>>		l_fldlen = l_fldlen + LEN(lcsub)
>>	*	ThisForm.grdsearch.columns(l_numfld).removeobject('_editbox1')
>>	Case type("&l_fldname") = "L"
>>		lcsub = IIF(&l_fldname,"T","F")
>>		l_fldlen = l_fldlen + 1
>>	*	ThisForm.grdsearch.columns(l_numfld).removeobject('_editbox1')
>>	Case type("&l_fldname") = "C" or type("&l_fldname") = "M"
>>		l_fldlen = l_fldlen + LEN(&l_fldname)
>>	*	ThisForm.grdsearch.columns(l_numfld).currentcontrol='_editbox1'
>>	case type("&l_fldname") = "U"
>>		dimension Error_Arry(1)
>>		Error_Arry(1) = l_fldname
>>		clear typeahead
>>		MainMenu.UANMessageBox("SM-22", @Error_Arry)
>>		return .f.
>>	case type("&l_fldname") = "D"
>>		*ThisForm.grdsearch.columns(l_numfld).removeobject('_editbox1')
>>	Endcase
>
>
>
>I will be on vacation on wednesday so catch you later.
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