Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
SFQuery 5.1M - Visual Foxpro 8
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Stonefield
Title:
SFQuery 5.1M - Visual Foxpro 8
Miscellaneous
Thread ID:
00814635
Message ID:
00814635
Views:
45
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.
Next
Reply
Map
View

Click here to load this message in the networking platform