long ll_bookid,BookID
if 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.

怎么修改啊？

你Q是多少啊？能让我加你吗？我想请教你一些问题，好吗？