General information
Category:
Forms & Form designer
Title:
Deleted records still show
I was wondering why the deleted records are still showing in the table.
The following are the codes that I put at "click" event of my delete command button.
I am sure the deletions were successful since when I exited my program and did a
pack and re-index to the resulting table, those records that were deleted thru my
program were gone. But why were they still showing in the table when I was running
the program, could somebody please help?
*------------------------------------------
THISFORM.opcode = 3
IF MessageBox(" Confirm to delete ?",4+48," Delete Record") = 6
DELETE
result = TABLEUPDATE(.F.,.T.,"Products")
IF result
IF NOT BOF()
SKIP -1
ENDIF
THISFORM.Refresh
ELSE
?? CHR(7)
= MessageBox("Deletion unsuccessful",48," Delete Record")
= TABLEREVERT(.F.)
ENDIF
ENDIF
THISFORM.opcode = 4
*------------------------------------------
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only