有表 A B
1、我先要按条件把表A 的数据查找出来写进新建的临时表 B。代码如下：
Adodc7.RecordSource = "select * into tb_temp from tb_gz where 部门 = '" & DataCombo1.Text & "' and 工资月份 = '" & Month(DateAdd("m", -1, DTPicker1.Value)) & "'"
Adodc7.Refresh
代码意思是 把tb_gz 表里的 数据按部门名称 和 当前日期的月 - 1 提取出来写入 新建临时表 tb_temp
但是运行程序显示错误： 提示 “对象关闭时，不允许操作” 提示指示 Adodc7.Refresh （临时表里已经正确的输入了数据，但是提示错误后，下面的代码无法执行。）
2、数据写入了临时表后，我要修改临时表里的数据再写回源表。代码如下：
Adodc5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbs\db1.mdb;Persist Security Info=False"
Adodc5.RecordSource = "select * from tb_temp"
Adodc5.Refresh
For i = 0 To Adodc5.Recordset.RecordCount
Adodc5.RecordSource = "insert into tb_gz (序号,部门,工资月份,姓名,基本工资,岗位津贴,应发工资,代扣养老
金,代扣医疗险,代扣失业金,代扣公积金,输入日期,其他,通讯费,高温费,实发工资,合计实发金额)" & _
"values (' + aid + 1 + ','" + Adodc5.Recordset!部门.Value + "',' + Month(DTPicker1.Value)
+ ','" + Adodc5.Recordset!姓名.Value + "','" + Adodc5.Recordset!基本工资.Value + "','" +
Adodc5.Recordset!岗位津贴.Value + "', '" + Adodc5.Recordset!应发工资.Value + "','" +
Adodc5.Recordset!代扣养老金.Value + "','" + Adodc5.Recordset!代扣医疗险.Value + "','" +
Adodc5.Recordset!代扣失业金.Value + "','" + Adodc5.Recordset!输入日期.Value + "', '" +
Adodc5.Recordset!其他.Value + "','" + Adodc5.Recordset!通讯费.Value + "','" +
Adodc5.Recordset!高温费.Value + "','" + Adodc5.Recordset!实发工资.Value + "','" +
Adodc5.Recordset!合计实发金额.Value + "')"
Adodc5.Recordset.MoveNext
Next i
MsgBox "添加成功！", 48, "信息提示"
修改添加数据回源表，可能还有些错误。希望高手给我指正一下。谢谢！
