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