程度运行时，总是出现错误提示

阿四　发表于：2020-08-29 00:46:06 　

复制

点击下载此附件

本想达成的效果应是

Top

阿四发表于：2020-08-29 00:50:48

Top

阿四发表于：2020-08-29 00:53:02

请大师指教一下，代码错在何处，我怎么也发现哪里有错

Top

西出阳关无故人发表于：2020-08-29 08:00:03

...

If rst1("编号") = str Then

rst2.Edit '要添加这一句'

rst2("编号") = str

...

Top

阿四发表于：2020-08-29 09:11:59

加了这一句后，仍出错。大师，能否将调试成功以后的示例传上来。我好好学习一下。昨天这一句，我也加过，好象不行。

Top

阿四发表于：2020-08-29 09:14:29

ado调试过了。就是dao的怎么也弄不好。哪位大师能将调试通过的示例发给我，非常咸激

Top

西出阳关无故人发表于：2020-08-29 11:23:17

加了这一句后,是什么错误?

Top

阿四发表于：2020-08-29 11:46:09

Top

阿四发表于：2020-08-29 11:47:11

大师：烦把您调试通过的示例上传一下，谢谢

Top

西出阳关无故人发表于：2020-08-29 12:10:25

...

Set rst1 = CurrentDb.OpenRecordset("select * from 科目表 order by 编号", dbOpenDynaset) '防止错误,要进行排序

...

Do While Not rst1.EOF

If rst1("编号") = str Then
rst2.Edit '!!!
rst2("编号") = str
rst2("科目") = rst2("科目") & "、" & rst1("科目")
Else
str = rst1("编号")
rst2.AddNew
rst2("编号") = str
rst2("科目") = rst1("科目")
End If
rst2.Update
rst2.MoveLast '貌似上一句的update后,记录会移动到新记录,所以会出现那个错误
rst1.MoveNext
Loop

...

Top

阿四发表于：2020-08-29 12:44:59

谢谢。指针移动的规律我还没掌握

Top

cheng_access 发表于：2020-08-29 21:59:58

3楼　得分: 0

...

If rst1("编号") = str Then

rst2.AddNew '要添加这一句'

rst2("编号") = str

...

Top

总记录：11篇页次：1/1 9 1 :

Access交流中心

[5分]程度运行时，总是出现错误提示