求助：如何對表內(nèi)記錄在窗體內(nèi)有選擇進(jìn)行復(fù)制

tuhaiyin2008

求助：如何對表內(nèi)記錄在窗體內(nèi)有選擇進(jìn)行復(fù)制，這樣可以減少輸入大量重復(fù)的信息。見附件。

Henry D. Sy

建議，
將編號12起刪除掉，
然后用追加查詢

Henry D. Sy

原帖由 Henry D. Sy 于 2009-1-23 05:33 發(fā)表
建議，
將編號12起刪除掉，
然后用追加查詢

否則只能用記錄集

Private Sub Command10_Click()
    Dim strSQL As String
    Dim varArray(7) As Variant
    Dim rs As New ADODB.Recordset
    Dim i As Integer

    If IsNull(Me.Combo2) Or IsNull(Me.Combo7) Then
        Exit Sub
    End If

    strSQL = "select a,b,c,d,f,g,h,z from 表1 where batch=" & Me.Combo2
    With rs
        .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        For i = 0 To .Fields.Count - 1
            varArray(i) = .Fields(i)
        Next
        .Close
    End With

    strSQL = "select a,b,c,d,f,g,h,z from 表1 where batch=" & Me.Combo7
    With rs
        .Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        For i = 0 To .Fields.Count - 1
            .Fields(i) = varArray(i)
        Next
        .Update
        .Close
    End With
    Set rs = Nothing
    MsgBox "Copied"
End Sub