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
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
全站熱搜
留言列表