Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Deleting records in a buffered view.
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00578650
Message ID:
00595612
Views:
41
Robert, the following is the code I finally used this morning to make this work. You are correct about TableUpdate(). I do execute that inthe .SaveIt() function as you will see below in the cmdPackTable procedure:

* Pack table now. Only security level 3 may pack this table.
Local llGood
WITH ThisForm
IF .IsChanged()
.SaveIt()
ENDIF
IF .nSecLevel > 2
IF USED('Address')
USE && Close the file.
ENDIF
USE address EXCLUSIVE
SELECT Address
WAIT WINDOW NOWAIT "Packing table..."
llGood = CursorSetProp('Buffering', 1, 'Address') && Turns off buffering.
PACK
USE
USE Address ORDER lfName SHARED && Re-open table in SHARED mode.
llGood = CursorSetProp('Buffering', 2, 'Address') && Pessimistic row buffering.
.cmdDelete.Enabled = .T.
.cmdRecall.Enabled = .F.
.IsDeleted()
.CountRecs()
ENDIF
*.Refresh() && Don't need this command since it is in .CountRecs().
ENDWITH
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform