为什么我的游标不起作用?
if (trim(sle_1.text)="") then
messagebox("attention!","请正确填写查询信息")
return
end if
int num,n
num=integer(trim(sle_1.text))
DECLARE tu CURSOR FOR
SELECT "tushu"."书名"
FROM "tushu"
WHERE "tushu"."图书编号" = :num
;
open tu;
n=SQLCA.SQLnrows
if(n=0) then
beep(1)
messagebox("attention!","no this book")
close tu;
return
else
dw_1.setfilter("图书编号='"+trim(sle_1.text)+"'")
dw_1.retrieve("图书编号='"+trim(sle_1.text)+"'")
end if
close tu;