我怀疑是我没定义的记录集的问题？？

Option Explicit
Dim rcdset '窗体级变量,存放ADO控件的当前记录
Dim i As Integer

把(Dim rcdset)换成dim rcdset as new Recordset

或者:
Set rcdset = Adodc1.Recordset
rcdset.movefirst
rcdset!截止日期 = DateAdd("m", 1, rcdset!截止日期) '更新借阅记录中截止日期字段
rcdset.update
Adodc1.Refresh



说了这么多
还不知道你那运行到哪就出那错误了~~~

就是这里出错了啊


第一中方法 报错：用户类型未定义
二 报错：和上面一样 找不到记录

汗了 CStr(DateAdd("m", 1, "2007-8-4"))
把那个日期型的转化成字符型看看

rcdset.movefirst
rcdset!截止日期 = DateAdd("m", 1, rcdset!截止日期) '更新借阅记录中截止日期
如果是rcdset.movefirst到这里就出错了...那说明记录集中没资料(不能移到记录集中的第一条..当然就一笔资料都没有....) 那么这种方法也不用试了...

如果是rcdset!截止日期 = DateAdd("m", 1, rcdset!截止日期) 这句时出错的
那就可以试下

rcdset.movefirst 是这里出错了
那为什么会没资料？？
赋错值了？？

还真是值赋错了 lockrecord Adodc1, "书籍总表", "书号", Text4(i).Text
这里应该是 lockrecord Adodc1, "书籍总表", "书号", Text6(i).Text



谢谢了啊 搞定了

lockrecord Adodc1, "借阅总表", "书号", Text4(i).Text
Set rcdset = Adodc1.Recordset
rcdset!截止日期 = DateAdd("m", 1, rcdset!截止日期) '更新借阅记录中截止日期字段
rcdset.update
Adodc1.Refresh

看一下Text4(i).Text的值是多少
出错的时候i等于多少啊 这是第几次循环......

晕

。。。。。。。。。。。。。。。。。。