Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Record out of range
Message
From
23/03/2004 03:16:58
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00888270
Message ID:
00888759
Views:
16
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform