出現編譯錯誤:如題
Private Sub datOrder_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not (datOrder.Recordset.BOF Or datOrder.Recordset.EOF) Then
If Not datOrder.Recordset.EditMode <> 0 Then
frmVIP.datVIP.Recordset.MoveFirst
frmVIP.datVIP.Recordset.Find "身分證號 = '" & datOrder.Recordset("會員編號") & "'"
frmGoods.datGoods.Recordset.MoveFirst
frmGoods.datGoods.Recordset.Find "編號 = '" & datOrder.Recordset("商品編號") & "'"
End If
End If
End Sub
Private Sub datOrder_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not (datOrder.Recordset.BOF Or datOrder.Recordset.EOF) Then
If Not datOrder.Recordset.EditMode <> 0 Then
frmVIP.datVIP.Recordset.MoveFirst
frmVIP.datVIP.Recordset.Find "身分證號 = '" & datOrder.Recordset("會員編號") & "'"
frmGoods.datGoods.Recordset.MoveFirst
frmGoods.datGoods.Recordset.Find "編號 = '" & datOrder.Recordset("商品編號") & "'"
End If
End If
End Sub
全站熱搜
留言列表