Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
SFQuery 5.1M - Visual Foxpro 8
Message
General information
Forum:
Visual FoxPro
Category:
Stonefield
Miscellaneous
Thread ID:
00814635
Message ID:
00814642
Views:
34
This message has been marked as the solution to the initial question of the thread.
Kirk

Try SET ENGINEBEHAVIOR 70 in your program ,compile and run.



>I'm trying to move my app from version 7 to 8, and I have ran into a problem with the sfquery program. I've had this a long time and it has always worked great. Our data comes from SQL Server, and it gets loaded into a cursor (we do not use remote views). The problem I'm having is when they go to create a filter, and click the values button, nothing happens (I do see a flash of a wait window, but I can't read it.) I don't get the value selection window. I can type in a value in the box, and it works. When this same app is compiled in version 7, it all works.
>
>Below is the code I call from a button:
>
>
>*****************************************************
>* Create a filter using the sfquery.vcx
>*****************************************************
>local lcAlias
>lcAlias=alias()
>* Make sure any previous one is gone
>IF VARTYPE(goquery)=[O]
>	RELEASE goQuery
>ENDIF
>LOCAL llError
>IF FILE('c:\dev.cq')
>	ON ERROR
>else
>	ON ERROR llError=.t.
>ENDIF
>******************************************************
>* Create the query object
>******************************************************
>goQuery=NEWOBJECT("sfquery","c:\ctsql\stone\sfquery\sfquery.vcx")
>IF USED('sqlresult')
>	select sqlresult
>	* Select our alias (it is always this alias from the reporting dialog
>	with goQuery
>		.calias=[sqlresult]
>		.cFilter=" "
>		* Display the sfquery dialog
>		.show()
>		* Set the filter on the cursor
>		lcFilter=goQuery.cFilter
>		thisform.frmFilter=lcFilter
>		set filter to &lcFilter
>	ENDWITH
>ENDIF
>ON ERROR DO errsys WITH ERROR(),MESSAGE(1),MESSAGE(),PROGRAM(), LINE(1)
>
>
>
>Thanks for any help.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform