vfp9.0中表单执行输入编号后一直弹出“函数参数的值、类型或数目无效”是怎么回事
*设置txt读者编号的interactivechange 事件代码IF LEN(ALLTRIM(thisform.pageframe1.page1.txt读者编号.Value))=6
SELECT 读者信息
LOCATE FOR 读者编号=ALLTRIM(thisform.pageframe1.page1.txt读者编号.Value)
IF FOUND()
thisform.pageframe1.page1.txt读者姓名.Value=读者信息.读者姓名
thisform.pageframe1.page1.txt借书额度.Value=读者信息.借书额度
thisform.pageframe1.page1.txt已借书数.Value=读者信息.已借书数
SET FILTER TO
ELSE
MESSAGEBOX("读者信息库中无此编号为"+ALLTRIM(thisform.pageframe1.page1.txt读者编号.Value)+"的读者!",48,"警告")
thisform.pageframe1.page1.txt读者编号.Value=""
thisform.pageframe1.page1.txt读者姓名.Value=""
thisform.pageframe1.page1.txt借书额度.Value=""
thisform.pageframe1.page1.txt已借书数.Value=""
ENDIF
SELECT 借阅信息
SET FILTER TO 读者编号=ALLTRIM(thisform.pageframe1.page1.txt读者编号.Value)
thisform.pageframe1.page1.grid2.Refresh
thisform.pageframe1.page1.grid2.Visible=.T.
ENDIF
