如何把数据从窗体中一个数据表追加进另一个表中

zysun

file:///C:/Users/tszysun/AppData/Roaming/Tencent/Users/465560425/QQ/WinTemp/RichOle/K%7B0%7D%250TZ@)%7D1AWO)%7B1U1]QC.png

如题：

zysun

求助.rar (49.75 KB, 下载次数: 10)

2018-6-12 14:23 上传

点击文件名下载附件

请下载这个附件，谢谢各位啦！

as42065300

确定按钮下的代码自己去测试

1. Private Sub Command62_Click()
   
2. 
   
3. Dim rs(1) As Recordset
   
4. Set rs(1) = Me.煤化验_车号_子窗体.Form.RecordsetClone
   
5. Set rs(0) = Me.收货清单_子窗体.Form.RecordsetClone
   
6. If rs(0).RecordCount > 0 Then rs(0).MoveFirst
   
7. Do Until rs(0).EOF
   
8.    If rs(0).Fields("是否取样") = True Then
   
9.         rs(1).AddNew
   
10.         rs(1).Fields("车号") = rs(0).Fields("车号")
    
11.         rs(1).Update
    
12.    End If
    
13.     rs(0).MoveNext
    
14. Loop
    
15. rs(1).Close
    
16. rs(0).Close
    
17. Set rs(0) = Nothing
    
18. Set rs(1) = Nothing
    
19. End Sub

复制代码