Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I want an error for VFP Open dialog
Message
 
To
17/03/2004 13:04:01
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00885697
Message ID:
00887181
Views:
32
Yup your right, but that does make the code much more readable. And this just an example, i have much bigger programs cluttered with this kind of code just because of that Open dialog feature.

>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
Reply
Map
View

Click here to load this message in the networking platform