Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Writing a Report Exception (in case table empty)
Message
 
 
À
09/03/2010 13:36:36
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
01453531
Message ID:
01453540
Vues:
45
I think we covered this problem already in your previous thread - don't use DE of your reports and don't use tables there.

>you mean dont use tables in the DE of my ReportS?
>
>>You should always let a cursor drive a report, and not a table directly.
>>Select somefields from yourtable into cursor curReport where ...
>>If _tally>0
>>   Report form...
>>Else
>>   Messagebox('No match')
>>Endif
>>
>>>Hello!
>>>i have this form with two option groups so i use the two of them to help me formula a report
>>>name OG status and OG design both hav four option groups
>>>
>>>so my code is somethin like this
>>>
>>>Do case
>>>      case thisform.OGstatus.value=1
>>>                  Clientstat="A"
>>>      case thisform.OGstatus.value=2
>>>                  Clientstat="b"
>>>      case thisform.OGstatus.value=3
>>>                  Clientstat="c"
>>>      case thisform.OGstatus.value=4
>>>                  Clientstat="d"
>>>&&A,B,C and D being values in a table
>>>endcase 
>>>
>>>Case thisform.ogstatus.value<5 and thisform.ogdesign.value=1
>>>report form report1 for vclient.acc=clientstat preview
>>>
>>>Case thisform.ogstatus.value<5 and thisform.ogdesign.value=2
>>>report form report1 for vclient.acc=clientstat preview
>>>
>>>Case thisform.ogstatus.value<5 and thisform.ogdesign.value=3
>>>report form report1 for vclient.acc=clientstat preview
>>>
>>>Case thisform.ogstatus.value<5 and thisform.ogdesign.value=4
>>>report form report1 for vclient.acc=clientstat preview
>>>
>>>this works fine. but just that i cant think of a statement in the event there is no A,B C or D in the data base. SO if i select OGStatus and the table has no "A" the report only flashes :( im trying to think of a statment to stop that
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform