Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
SFQuery 5.1M - Visual Foxpro 8
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Stonefield
Titre:
SFQuery 5.1M - Visual Foxpro 8
Divers
Thread ID:
00814635
Message ID:
00814635
Vues:
46
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.
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform