Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
GETNEXTMODIFIED() detect add new rec
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01172021
Message ID:
01172087
Views:
22
>That works for me (but I can test it only on VFP9SP1)
>
>CLEAR
>CREATE CURSOR crsTest (Fld1 I)
>FOR asd = 1 TO 20
>    INSERT INTO crsTest VALUES (asd)
>NEXT
>GO TOP
>CURSORSETPROP("Buffering",5)
>? [No changes],GETNEXTMODIFIED(0)
>15
>REPLACE Fld1 WITH 77
>GO TOP
>? [Record 15 is changed],GETNEXTMODIFIED(0)
>TABLEREVERT(.t.)
>GO TOP
>? [Reverted table],GETNEXTMODIFIED(0)
>13
>REPLACE Fld1 WITH 77
>APPEND BLANK
>APPEND BLANK
>APPEND BLANK
>APPEND BLANK
>APPEND BLANK
>APPEND BLANK
>APPEND BLANK
>GO TOP
>?
>?
>? [--------------------------------]
>?
>?
>ln = GETNEXTMODIFIED(0)
>SCAN WHILE ln # 0
>     GO ln
>     ? [Record ]+TRANSFORM(ln)+[ is changed],ln, [Current Record ] ,RECNO()
>     ln = GETNEXTMODIFIED(ln)
>ENDSCAN
>
Thanks a lot, BB. If my existing save (free tables) code doesn't suffice I can use similar to this.
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
Previous
Reply
Map
View

Click here to load this message in the networking platform