Adodc2.Recordset.AddNew
            For i = 0 To 32
                Set Adodc1.Recordset.Fields(i) = Adodc2.Recordset.Fields(i)
            Next
            Adodc2.Recordset.Update
            Adodc1.Recordset.MoveNext
        Adodc1.Recordset.MoveFirst

报Set Adodc1.Recordset.Fields(i) = Adodc2.Recordset.Fields(i)属性的使用无效，是什么原因。

Adodc2.Recordset.AddNew    '这句是给Adodc2增加记录。
Set Adodc1.Recordset.Fields(i) = Adodc2.Recordset.Fields(i)  '是把Adodc1.Recordset.Fields(i)的值赋给Adodc2.Recordset.Fields(i)，

Adodc2.Recordset.AddNew
            For i = 0 To 32
                 Set Adodc2.Recordset.Fields(i).Value = Adodc1.Recordset.Fields(i).Value
            Next
            Adodc2.Recordset.Update
            Adodc1.Recordset.MoveNext
            Adodc1.Recordset.MoveFirst
    now_find = Not now_find
    If MsgBox(("确定打印吗"), vbOKCancel, " 提示") = vbOK Then
电缆交流试验Report.DataMember = "dlp"
        Unload DataEnvironment
        电缆交流试验Report.Show
While Not Adodc2.Recordset.EOF()
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveNext
Wend
End If
Adodc1和Adodc2分别连的一个数据库的两个数据表(两个表是一样的只是名不一样）我要把Adodc1表中的一条记录新增到Adodc2通过DataReport来打印Adodc2中的数据然后就把Adodc2中的数据删除
我用mdb的数据库没问题现在改成SQL数据库就不行了。

[此贴子已经被作者于2022-7-8 19:57编辑过]

还是不行哦，报错Adodc2.Recordset.AddNew对象变量或with块变量未设置。

我用的是SQL
 lsRS.AddNew
            For i = 0 To 32
                lsRS.Fields(i) = RS.Fields(i)
            Next
            lsRS.Update
            RS.MoveNext
        RS.MoveFirst
    now_find = Not now_find
 If MsgBox(("确定打印吗"), vbOKCancel, " 提示") = vbOK Then
电缆交流试验Report.DataMember = "dlp"
     Unload DataEnvironment
        电缆交流试验Report.Show

While Not lsRS.EOF()
lsRS.Delete
lsRS.MoveNext
Wend
End If


怎么让数据传完后再执行lsRS.Delete