循环添加数据问题!(vb access)

  LZ:代码似乎不存在大问题,测试通过dateadd 。

Private Sub Command1_Click()

'控件2 把数据修改后写回表dateadd ，代码如下:

For i = 0 To Adodc5dateadd 。

  Recordsetdateadd 。RecordCount - 1 '(-1 去掉也一样)

Adodc1dateadd 。Recordset。AddNew '(数据库已经连接，数据源也设置好的)

Adodc1dateadd 。Recordset!序号 = aid 1 '(aid 是 max(序号)的值)

Adodc1dateadd 。

  Recordsetdateadd 。Fields("部门") = Adodc5。Recordset。Fields("部门")。Value

Adodc1dateadd 。Recordset!工资月份 = Month(DTPicker1。Value)

Adodc1dateadd 。

  Recordsetdateadd 。Fields("姓名") = Adodc5。Recordset。Fields("姓名")。Value

Adodc1dateadd 。Recordset。Fields("基本工资") = Adodc5。Recordset。

  Fields("基本工资")dateadd 。Value

Adodc1dateadd 。Recordset。Fields("岗位津贴") = Adodc5。Recordset。Fields("岗位津贴")。Value

Adodc1dateadd 。

  Recordsetdateadd 。Fields("应发工资") = Adodc5。Recordset。Fields("应发工资")。Value

Adodc1dateadd 。Recordset。Fields("代扣养老金") = Adodc5。Recordset。

  Fields("代扣养老金")dateadd 。Value

Adodc1dateadd 。Recordset。Fields("代扣医疗险") = Adodc5。Recordset。Fields("代扣医疗险")。Value

Adodc1dateadd 。

  Recordsetdateadd 。Fields("代扣失业金") = Adodc5。Recordset。Fields("代扣失业金")。Value

Adodc1dateadd 。Recordset。Fields("代扣公积金") = Adodc5。Recordset。

  Fields("代扣公积金")dateadd 。Value

Adodc1dateadd 。Recordset。Fields("输入日期") = DTPicker1。Value

Adodc1dateadd 。Recordset。Fields("其他") = Adodc5。

  Recordsetdateadd 。Fields("其他")。Value

Adodc1dateadd 。Recordset。Fields("通讯费") = Adodc5。Recordset。Fields("通讯费")。Value

Adodc1dateadd 。

  Recordsetdateadd 。Fields("高温费") = Adodc5。Recordset。Fields("高温费")。Value

Adodc1dateadd 。Recordset。Fields("实发工资") = Adodc5。Recordset。

  Fields("实发工资")dateadd 。Value

Adodc1dateadd 。Recordset。Fields("合计实发金额") = Adodc5。Recordset。Fields("合计实发金额")。Value

Adodc5dateadd 。

  Recordsetdateadd 。MoveNext '换成 adodc1。recordset。movenext 就只写入查询出来的第一条数据，反正就只输入1条，好像循环不起作用。郁闷

Next i

Adodc1dateadd 。

  Recordsetdateadd 。Update

End Subdateadd 。