Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Code
Message
De
25/02/2005 16:22:01
 
 
À
25/02/2005 15:40:39
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Re: Code
Versions des environnements
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Divers
Thread ID:
00990699
Message ID:
00990737
Vues:
26
Update
SELECT 1
SELECT MAX(billno) from mstr INTO ARRAY laAarray
IF _TALLY > 0
thisform.text1.value=(RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+laAarray+1,5),4))+1
ELSE

* Here array laAarray does not exist!! But you want to start from 1?

THISFORM.TEXT1.VALUE = (RIGHT(STR(YEAR(DATE()),4),2) + '_'+RIGHT(STR(10000+1,5),4))
ENDIF
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform