错误提示:Retrieve argument 1 does not match expected type
long ll_bookid,BookIDif sle_cancle.text=""or isnull(sle_cancle.text) then
messagebox("错误","图书编号不能为空!")
sle_cancle.setfocus( )
return
else
ll_bookid=long(sle_cancle.text)
end if
select bookinfo.bookid
into :BookID
from bookinfo
where bookid=:ll_bookid;
if BookID=0 then
dw_cancle.retrieve(0)
messagebox("提示","没有此图书编号,请核实!")
return
else
dw_cancle.retrieve(ll_bookid)
end if
帮忙看看了,能够运行成功,但是在查询的时候总是提示Retrieve argument 1 does not match expected type.