Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Record out of range
Message
De
23/03/2004 03:16:58
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00888270
Message ID:
00888759
Vues:
17
Hello,

thank you ,this is my code

SELECT 1
LOCATE FOR UPPER(NO)=UPPER(TRIM(THISFORM.TEXT1.VALUE)) .AND. UPPER(NAM)=UPPER(TRIM(THISFORM.TEXT9.VALUE))
IF !FOUND()
SCATTER MEMVAR blank
no=thisform.text1.value
nam=thisform.text2.value
desc=thisform.text3.value
unit=thisform.text4.value
total=thisform.text7.value
min=thisform.text6.value
GATHER MEMVAR


ELSE

IF THISFORM.TEXT1.VALUE=THISFORM.TEXT10.VALUE .AND. THISFORM.TEXT2.VALUE=THISFORM.TEXT11.VALUE


SCATTER MEMVAR blank
no=thisform.text1.value
nam=thisform.text2.value
desc=thisform.text3.value
unit=thisform.text4.value
total=thisform.text7.value
min=thisform.text6.value
GATHER MEMVAR


ELSE

=MESSAGEBOX("you have this number and name before")
ENDIF
ENDIF
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform