2,718
社区成员
发帖
与我相关
我的任务
分享
lcText1Val=Alltrim(Thisform.Text1.Value)
If !Empty(lcText1Val)
Select BORROW &&此表建议在表单的 Load 事件中打开
Locate For Alltrim(借书证号)==lcText1Val
If Found()
If Empty(还书日期)
Messagebox("请先还书!",48,"信息提示")
Else
Replace 借书证号 With Thisform.Text1.Value,;
姓名 With Thisform.Text2.Value,;
图书编号 With Thisform.Text5.Value,;
书名 With Thisform.Text6.Value,;
借书日期 With Thisform.Text9.Value
Endif
Else
Messagebox("此借书证号不存在!",48,"信息提示")
Endif
Else
Messagebox("请输入借书证号!",48,"信息提示")
Endif