requery_class1
requery_class2
requery_class3
requery_class4
requery_class5
都是recordset 做update 的動作
錯誤點在 a = requery_class & i


Dim a As String

Dim i, j As Integer
For i = 1 To 4
a = requery_class & i
If Not (a.EOF) Then
 requery_class5.AddNew
 requery_class5.Fields(0) = requery_class & i & .Fields(0).Value
 requery_class5.Fields(1) = requery_class & i & .Fields(1).Value
 requery_class5.Fields(2) = requery_class & i & .Fields(2).Value
 requery_class5.Fields(3) = requery_class & i & .Fields(3).Value
 End If
Next i
con.BeginTrans
requery_class5.UpdateBatch
con.CommitTrans
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()