如何删除表中的记录，基于动态查询?

Question

这个问题是这个问题的后续。

我目前有以下一段源代码:

CREATE BUFFER h-Table1 FOR TABLE "Table1" NO-ERROR.
IF VALID-HANDLE(h-Table1)
THEN DO:
L-Found = h-Table1:FIND-FIRST("WHERE ...
IF L-Found
THEN h-Table1:BUFFER-DELETE().

当我启动BUFFER-DELETE()命令时，我有错误335 (The Table1 record has NO-LOCK status. DELETE not allowed. (335))。我需要如何修改我的源代码才能使其工作?(我如何改变我的表1记录的状态?)

Answer 1

h-Table1:FIND-FIRST ("WHERE ....", EXCLUSIVE-LOCK) . 

或在第一次查找之后(应该通过显式的NO-LOCK选项完成)

hTable1:FIND-CURRENT (EXCLUSIVE-LOCK) .