如果仅仅是为了计算则无需要用到临时表

请问Adodc7.ConnectionString设置好的吗

是的。已经连接好数据库的。

回复 1楼

我也想不建临时表，开始我是这样想的。
1、在源表里把符合条件的数据提取出来。然后直接修改写入源表。代码如下：
For i = 0 To Adodc1.Recordset.RecordCount
Adodc1.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

注：（ADOdc5 改为 adodc1）
不知道这样可以不？  好像我试了一下是不可以的。

1，给你一个SQL语句的增行写法：
strsql=" insert into 表名(字符字段,数值字段) values('"& 字符变量 &"',"& 数值变量 &")"
2，在上述SQL语句中要注意变量值（Adodc5.Recordset!部门.Value）的内容是否有NULL

部门的值没有null的，我加了判断的。

我 后来不建临时表，直接用2个ADO控件。 但是只写入查找出来的最后1条记录！！！  已经把查找出来的数据弄到第一条了，还是不行。不知道为什么循环写入，就是指写最后一条，而不是把我查找出来的n条数据全部写入，希望高手帮忙。
控件1 把符合条件的数据查找出来代码如下：
Adodc5.RecordSource = "select * from tb_gz where 部门 = '" & DataCombo1.Text & "' and
                       工资月份 = '" & Month(DateAdd("m", -1, DTPicker1.Value)) & "'"
Adodc5.Refresh
Adodc5.Recordset.MoveFirst

控件2  把数据修改后写回表，代码如下：
.AddNew
For i = 0 To Adodc5.Recordset.RecordCount - 1
             Adodc1.Recordset!序号 = aid + 1
             Adodc1.Recordset.Fields("部门") = Adodc5.Recordset.Fields("部门").Value
             Adodc1.Recordset!工资月份 = Month(DTPicker1.Value)
             Adodc1.Recordset.Fields("姓名") = Adodc5.Recordset.Fields("姓名").Value
             Adodc1.Recordset.Fields("基本工资") = Adodc5.Recordset.Fields("基本工资").Value
             Adodc1.Recordset.Fields("岗位津贴") = Adodc5.Recordset.Fields("岗位津贴").Value
             Adodc1.Recordset.Fields("应发工资") = Adodc5.Recordset.Fields("应发工资").Value
             Adodc1.Recordset.Fields("代扣养老金") = Adodc5.Recordset.Fields("代扣养老金").Value
             Adodc1.Recordset.Fields("代扣医疗险") = Adodc5.Recordset.Fields("代扣医疗险").Value
             Adodc1.Recordset.Fields("代扣失业金") = Adodc5.Recordset.Fields("代扣失业金").Value
             Adodc1.Recordset.Fields("代扣公积金") = Adodc5.Recordset.Fields("代扣公积金").Value
             Adodc1.Recordset.Fields("输入日期") = DTPicker1.Value
             Adodc1.Recordset.Fields("其他") = Adodc5.Recordset.Fields("其他").Value
             Adodc1.Recordset.Fields("通讯费") = Adodc5.Recordset.Fields("通讯费").Value
             Adodc1.Recordset.Fields("高温费") = Adodc5.Recordset.Fields("高温费").Value
             Adodc1.Recordset.Fields("实发工资") = Adodc5.Recordset.Fields("实发工资").Value
             Adodc1.Recordset.Fields("合计实发金额") = Adodc5.Recordset.Fields("合计实发金额").Value
             Adodc1.Recordset.Update
             Adodc5.Recordset.MoveNext
Next i

For i = 0 To Adodc5.Recordset.RecordCount - 1
    adodc1.recordset.addrow
    Adodc1.Recordset!序号 = aid + 1

顺便再问一下，我的dtpicker控件 在form_load()里写了如下代码：
dtpicker1.value = now
为什么运行的时候dtpicker1.value 值还是我原来的值，没有和时间同步呢？

回复 8楼

AID 是最大序号的变量

我已经成功添加了1条了。比如我提取出来了4条数据 表里共有10条数据。
添加的1条数据是 第4条提取出来的数据，写回的数据序号为 11 其他都正确的，就是只写入了1条，还有3条没有写入。。。。。

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP