Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to find the only one record for duplicate address?
Message
From
10/12/1998 10:33:15
Senna Dwipayana
Indo Rebel Apparel Cv
Bandung, Indonesia
 
 
To
09/12/1998 13:49:15
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00165174
Message ID:
00166068
Views:
19
Try this
SET DELETED ON
CREATE CURSOR myTempCursor (name C(200),dob D,address C(200))
SELECT * from mytempTable INTO ARRAY myArray
IF _TALLY<>0
INSERT INTO myTempCursor FROM ARRAY myArray
ENDIF

SELECT myTempCursor
SCAN
mdob=dob
mAddress=address
mrec=Recno()
SELECT COUNT(*) FROM myTempCursor WHERE dob UPPER(ALLT(address))==UPPER(ALLT(maddress)) ;
AND RECNO()#mrec INTO ARRAY atempcount
IF aTempCount<>0
DELETE
ENDIF
ENDSCAN
HTH
Senna Dwipayana
Being good is better
Being better is a bless
Previous
Reply
Map
View

Click here to load this message in the networking platform