Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I want an error for VFP Open dialog
Message
From
17/03/2004 13:04:01
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00885697
Message ID:
00887177
Views:
26
You can fire a correct error with this:
Try
  MySqlExec(myHandle, "Select * from Sometable", "MyCursor")
  RaiseEvent(this, "DataArrival", "MyCursor")
  If Used("MyCursor") OR SELECT('MyCursor')
    Select Count(*) From MyCursor Into Array aMyCount
    RaiseEvent(this, "DataArrivalCount", aMyCount)
    IF Used("MyCursor") OR SELECT('MyCursor')
        RaiseEvent("this", "AnotherEvent" )
        Select MyCursor   && THIS FIRE THE ERROR
           Scan
              ...       
           EndScan
    Endif
  Endif
  ...
Catch
...
EndTry
This code show the necessity of one logical contradiction:
* test for a alias, and if not exist select it for throw the exception !
This below logic makes me to say that it is a b..

Fabio
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform