vb中用addnew连续添加记录的问题

[永远的疯子]

我这样用只能添加前面两条记录，后面的加不了，不知道是什么原因，请高手帮看看，谢谢！
If jieopt.Value = True Then
rs_addjk.AddNew
rs_addjk.Fields("编号") = Trim(Label3.Caption)
rs_addjk.Fields("第几年") = Trim(Combo1.Text)
rs_addjk.Fields("借报") = "1"
rs_addjk.Fields("费用") = Trim(xue.Text)
rs_addjk.Fields("日期") = Trim(xueriqi.Text)
rs_addjk.Update
MsgBox "添加学费成功"

rs_addjk.AddNew
rs_addjk.Fields("编号") = Trim(Label3.Caption)
rs_addjk.Fields("第几年") = Trim(Combo1.Text)
rs_addjk.Fields("借报") = "2"
rs_addjk.Fields("费用") = Trim(chelv.Text)
rs_addjk.Fields("日期") = Trim(chelvriqi.Text)
rs_addjk.Update
MsgBox "添加车旅费成功"

rs_addjk.AddNew
rs_addjk.Fields("编号") = Trim(Label3.Caption)
rs_addjk.Fields("第几年") = Trim(zhusu.Text)
rs_addjk.Fields("借报") = "3"
rs_addjk.Fields("费用") = Trim(zhusu.Text)
rs_addjk.Fields("日期") = Trim(zhusuriqi.Text)
rs_addjk.Update
MsgBox "添加住宿费成功"

rs_addjk.AddNew
rs_addjk.Fields("编号") = Trim(Label3.Caption)
rs_addjk.Fields("第几年") = Trim(qita.Text)
rs_addjk.Fields("借报") = "4"
rs_addjk.Fields("费用") = Val(Trim(qita.Text))
rs_addjk.Fields("日期") = Trim(qitariqi.Text)
rs_addjk.Update
MsgBox "添加其他费用成功"
flag = 1
End If

[feiyun0112]

报什么错，表中的key是什么

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://feiyun0112.cnblogs.com/

[abc_2004]

If jieopt.Value = True Then
              rs_addjk.AddNew
              rs_addjk.Fields("编号") = Trim(Label3.Caption)
              rs_addjk.Fields("第几年") = Trim(Combo1.Text)
              rs_addjk.Fields("借报") = "1"
              rs_addjk.Fields("费用") = Trim(xue.Text)
              rs_addjk.Fields("日期") = Trim(xueriqi.Text)
              rs_addjk.Update
              MsgBox "添加学费成功"
           
              rs_addjk.AddNew
              rs_addjk.Fields("编号") = Trim(Label3.Caption)
              rs_addjk.Fields("第几年") = Trim(Combo1.Text)
              rs_addjk.Fields("借报") = "2"
              rs_addjk.Fields("费用") = Trim(chelv.Text)
              rs_addjk.Fields("日期") = Trim(chelvriqi.Text)
              rs_addjk.Update
              MsgBox "添加车旅费成功"
         
              rs_addjk.AddNew
              rs_addjk.Fields("编号") = Trim(Label3.Caption)
              rs_addjk.Fields("第几年") = Trim(zhusu.Text)///////???相同吗
              rs_addjk.Fields("借报") = "3"
              rs_addjk.Fields("费用") = Trim(zhusu.Text)////????相同吗
              rs_addjk.Fields("日期") = Trim(zhusuriqi.Text)
              rs_addjk.Update
              MsgBox "添加住宿费成功"
           
              rs_addjk.AddNew
              rs_addjk.Fields("编号") = Trim(Label3.Caption)
              rs_addjk.Fields("第几年") = Trim(qita.Text)
              rs_addjk.Fields("借报") = "4"
              rs_addjk.Fields("费用") = Val(Trim(qita.Text))////您的字段类型是数字吗？
              rs_addjk.Fields("日期") = Trim(qitariqi.Text)
              rs_addjk.Update
              MsgBox "添加其他费用成功"
rs_addjk.close
set rs_addjk=nothing
              flag = 1
End If

[永远的疯子]

rs_addjk.Fields("费用") = Val(Trim(qita.Text))////您的字段类型是数字吗？
rs_addjk.Fields("第几年") = Trim(zhusu.Text)///////???相同吗
rs_addjk.Fields("费用") = Trim(zhusu.Text)////????相同吗

费用是用数值型的，第几年是用文本型。这个问题好像不大，只是我在运行时只能添加前两条的数据，后面两条的就加不到数据库里面了，到底是不是addnew的问题啊！这样用我在网上还没有见过，希望大虾们的解答

[slowgrace]

加不到数据库里面？那你后两个msgbox能正常显示么？运行过程中报错么？

还是正常运行不报错，只是最后数据没加进去？

[slowgrace]

另外，你用的是ADO还是DAO?

[永远的疯子]

ADO的

[quanhuang98bisha]

调试一下看看呀

[永远的疯子]

我找到答案了是 rs_addjk.Fields("第几年") = Trim(zhusu.Text这句出了问题，应该把zhusu.text改为Combo1.text,下一句也是这样。可以了谢谢楼上各位,我都会给你们加分的。

[clear_zero]

仔细阿仔细

顺便说我喜欢你的头像