首页系统综合问题循环添加数据问题!(vb access)

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

时间2022-12-24 09:01:10发布分享专员分类系统综合问题浏览112

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

Private Sub Command1_Click()

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

'控件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 。

爱资源吧版权声明:以上文中内容来自网络,如有侵权请联系删除,谢谢。

accessvbaccessvbdateadd
关于数据库建表建约束的问题。。。 江民科技加入openEuler欧拉开源社区