请版主帮忙加代码让子窗体数据相互移动，谢谢！

Henry D. Sy

还是有错误，当前事件有时不触发。
晚点修改！

Henry D. Sy

还是有错误，当前事件有时不触发。
晚点修改！

Henry D. Sy

还是有错误,有时当前事件不触发
等会儿等会改改！

Henry D. Sy

这个应该没有问题了

Henry D. Sy

或者直接这样
：

1. Private Sub 后退_Click()
   
2.     strSQL = "insert into 已完成 select * from 待加工 where 工序id='" & Me.待加工_子窗体.Form.工序ID & "'"
   
3.     CurrentDb.Execute strSQL
   
4.     strSQL = "delete from 待加工 where 工序id='" & Me.待加工_子窗体.Form.工序ID & "'"
   
5.     CurrentDb.Execute strSQL
   
6.     strID = ""
   
7.     Me.Recalc
   
8. End Sub
   
9. 
   
10. Private Sub 完成_Click()
    
11.     strSQL = "insert into 待加工 select * from 已完成 where 工序id='" & Me.已完成_子窗体.Form.工序ID & "'"
    
12.     CurrentDb.Execute strSQL
    
13.     strSQL = "delete from 已完成 where 工序id='" & Me.已完成_子窗体.Form.工序ID & "'"
    
14.     CurrentDb.Execute strSQL
    
15.     strID = ""
    
16.     Me.Recalc
    
17. End Sub
    

复制代码

ysh5858

谢谢版主！{:soso_e179:}{:soso_e183:}{:soso_e182:}