晕，发帖子不能编辑，真麻烦。。
Private Sub Command54_Click()
On Error GoTo Err_Command54_Click
Dim Qdf As DAO.QueryDef, strSQL As String
strSQL = "SELECT Q_Pro_In_Out.* FROM Q_Pro_In_Out"
If Me.F_Pro_In_OutWindow.Form.FilterOn = True And Me.F_Pro_In_OutWindow.Form.Filter <> "" Then
strSQL = strSQL & " Where " & Me.F_Pro_In_OutWindow.Form.Filter
End If
DoCmd.SetWarnings 0
DoCmd.RunSQL "DELETE CPP_FG_MOVEMENT.* FROM [CPP_FG_MOVEMENT];"
DoCmd.RunSQL "INSERT INTO [CPP_FG_MOVEMENT] (PACK_NUMBER, PRODUCT_CATEGORY,LOT_NUMBER, LOT_SIZE, QUANTITY, FG_IN_DATE, FG_IN_SLIP,FG_OUT_DATE,FG_OUT_SLIP,PRODUCTION_NUMBER) "
Exit_Command54_Click:
Exit Sub
Err_Command54_Click:
Select Case Err.Number
Case 3012
Resume Next
Case Else
MsgBox Err.Number & " " & Err.Description
Resume Exit_Command54_Click
End Select
End Sub
大体如下：
Private Sub Command54_Click()
dim strwh as string
dim strsql as string
strwh="True and "
strSQL = "SELECT Q_Pro_In_Out.* FROM Q_Pro_In_Out Where "
strwh=strwh & Me.F_Pro_In_OutWindow.Form.Filter
DoCmd.SetWarnings 0
DoCmd.RunSQL "DELETE CPP_FG_MOVEMENT.* FROM [CPP_FG_MOVEMENT] WHERE " & strwh
strsql="INSERT INTO [CPP_FG_MOVEMENT] (PACK_NUMBER, PRODUCT_CATEGORY,LOT_NUMBER, LOT_SIZE, QUANTITY, FG_IN_DATE, FG_IN_SLIP,FG_OUT_DATE,FG_OUT_SLIP,PRODUCTION_NUMBER) "
strsql=strsql & "select PACK_NUMBER, PRODUCT_CATEGORY,LOT_NUMBER, LOT_SIZE, QUANTITY, FG_IN_DATE, FG_IN_SLIP,FG_OUT_DATE,FG_OUT_SLIP,PRODUCTION_NUMBER "
strsql=strsql & "FROM Q_Pro_In_Out Where " & strwh
DoCmd.RunSQL strsql
End Sub
谢谢，测试后发现导入数据后，表内原数据没有清除，而是追加导入了。。
DoCmd.RunSQL "DELETE CPP_FG_MOVEMENT.* FROM [CPP_FG_MOVEMENT] WHERE " & strwh
貌似这段代码无作用。
Private Sub Command54_Click()
Dim strwh As String
Dim strsql As String
strwh = "True and "
strsql = "SELECT Q_Pro_In_Out.* FROM Q_Pro_In_Out Where "
strwh = strwh & Me.F_Pro_In_OutWindow.Form.Filter
DoCmd.SetWarnings 0
DoCmd.RunSQL "DELETE CPP_FG_MOVEMENT.* FROM [CPP_FG_MOVEMENT];"
DoCmd.RunSQL "DELETE CPP_FG_MOVEMENT.* FROM [CPP_FG_MOVEMENT] WHERE " & strwh
strsql = "INSERT INTO [CPP_FG_MOVEMENT] (PACK_NUMBER, PRODUCT_CATEGORY,LOT_SIZE, QUANTITY, FG_IN_DATE, FG_IN_SLIP,FG_OUT_DATE,FG_OUT_SLIP,PRODUCTION_NUMBER) "
strsql = strsql & "select PACK_NUMBER, PRODUCT_CATEGORY,LOT_SIZE, QUANTITY, FG_IN_DATE, FG_IN_SLIP,FG_OUT_DATE,FG_OUT_SLIP,PRODUCTION_NUMBER "
strsql = strsql & "FROM Q_Pro_In_Out Where " & strwh
DoCmd.RunSQL strsql
End Sub
这样就可以了，但是会不会多此一举。。
总记录：9篇 页次：1/1 9 1 :
