Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
I want an error for VFP Open dialog
Message
De
17/03/2004 13:04:01
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00885697
Message ID:
00887177
Vues:
27
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform