VFP 愛用者社區

cc · 註冊時間: 2007-08-21 文章: 9 第 1 樓

LOCAL tempcursor
LOCAL tempvalue
CLOSE TABLES all

USE 读者信息表

SELECT * FROM 读者信息表 WHERE 读者编号=thisform.text1.Value into CURSOR tempcursor

tempvalue=tempcursor.已借册数+1
IF tempcursor.已借册数=5
MESSAGEBOX("借书册数超过5本！",0+64,"借书")
CLOSE TABLES
ELSE
LOCATE FOR 读者编号=thisform.text1.Value
replace 已借册数 WITH tempvalue
//程序执行到此处出现问题：cannot update the CURSOR tempcursor,since it is read-only.程序中并没有对“CURSOR tempcursor”进行更新操作啊，为什么会“cannot update”呢？

USE 借阅信息表
APPEND BLANK
replace 借阅信息表.读者编号 WITH thisform.text1.Value
replace 借阅信息表.书号 WITH thisform.text2.Value
replace 借阅信息表.借阅日期 WITH thisform.text3.Value
replace 借阅信息表.还书日期 WITH thisform.text3.Value+30
MESSAGEBOX("已经确定借书",48,"信息窗口")
ENDIF
CLOSE TABLES all

cc · 註冊時間: 2007-08-21 文章: 9 第 2 樓

程序中并没有对“CURSOR tempcursor”进行更新操作啊，为什么会“cannot update”呢？

garfield · 發表於: 星期二八月 21, 2007 3:44 pm 文章主題:

LOCATE FOR 讀者編號=thisform.text1.Value
之前要先
select 讀者信息表