Search This Blog

Delete Code

This is delete code where you can delete a line or specific data from the table one at a time.

SELECT TableName
LOCATE FOR ALLTRIM(TableName.Allottee) = ALLTRIM(THISFORM.Text1.Value)
IF FOUND()
IF ALLTRIM(TableName.Allottee) = ALLTRIM(THISFORM.Text1.Value)
SELECT TableName
LOCATE FOR Allottee = ALLTRIM(THISFORM.Text1.Value)
SELECT TableName
USE
USE Allotments EXCLU
DELETE
PACK
=TABLEUPDATE(.T.)
ENDIF
ENDIF