请各位老师看看如何将主窗体里一个子窗体数据复制到另一个子窗体中.

Henry D. Sy

1. Private Sub Command8_Click()
   
2.     Dim sSQL As String
   
3.     sSQL = "INSERT INTO tab_SANWA_PACKINGLIST_TPRY ( PO_NO, SANWA_ITEM, ITEM_DESC, ORDER_QTY, SHIP_DATE )" _
   
4.          & " SELECT tab_COtoPACKINGLIST.PO_NO, tab_COtoPACKINGLIST.SANWA_ITEM, tab_COtoPACKINGLIST.ITEM_DESC, tab_COtoPACKINGLIST.ORDER_QTY, tab_COtoPACKINGLIST.SHIP_DATE" _
   
5.          & " FROM tab_COtoPACKINGLIST" _
   
6.          & " WHERE (((tab_COtoPACKINGLIST.aa_status)=True))"
   
7.     CurrentDb.Execute sSQL
   
8.     sSQL = "DELETE FROM tab_COtoPACKINGLIST WHERE (((tab_COtoPACKINGLIST.aa_status)=True))"
   
9.     CurrentDb.Execute sSQL
   
10.     Me.tab_COtoPACKINGLIST_subform.Requery
    
11.     Me.tab_SANWA_PACKINGLIST_TPRY_subform.Requery
    
12. End Sub

复制代码

Henry D. Sy

如果要加上判断有没有选择记录.,也不用像你这么复杂,只要

1. Private Sub Command8_Click()
   
2. 
   
3.     Dim sSQL As String
   
4.     Dim L As Long
   
5. 
   
6.     L = DCount("ORDER_QTY", "tab_COtoPACKINGLIST", "aa_status=True")
   
7. 
   
8.     If L <= 0 Then
   
9.         MsgBox "还没有选择记录，不能添加"
   
10.         Exit Sub
    
11.     End If
    
12. 
    
13.     sSQL = "INSERT INTO tab_SANWA_PACKINGLIST_TPRY ( PO_NO, SANWA_ITEM, ITEM_DESC, ORDER_QTY, SHIP_DATE )" _
    
14.          & " SELECT tab_COtoPACKINGLIST.PO_NO, tab_COtoPACKINGLIST.SANWA_ITEM, tab_COtoPACKINGLIST.ITEM_DESC, tab_COtoPACKINGLIST.ORDER_QTY, tab_COtoPACKINGLIST.SHIP_DATE" _
    
15.          & " FROM tab_COtoPACKINGLIST" _
    
16.          & " WHERE (((tab_COtoPACKINGLIST.aa_status)=True))"
    
17.     CurrentDb.Execute sSQL
    
18. 
    
19.     sSQL = "DELETE FROM tab_COtoPACKINGLIST WHERE (((tab_COtoPACKINGLIST.aa_status)=True))"
    
20.     CurrentDb.Execute sSQL
    
21. 
    
22.     Me.tab_COtoPACKINGLIST_subform.Requery
    
23.     Me.tab_SANWA_PACKINGLIST_TPRY_subform.Requery
    
24. 
    
25. End Sub

复制代码