VB always quote "object" of the specific process is as follows-CodePudding

I=1
The Do While I & lt;=7
Voucherentrys. Add
With Voucher. Entries (Voucher. Entries. Count)
The explanation=CStr (MSFlexGrid1. TextMatrix (I, 1))
Dim Mrs As Object
Dim STR As String
coNN. The ConnectionString=K3Login. PropsString
CoNN. Open
STR="select * from t_account where fnumber='" & amp; MSFlexGrid1. TextMatrix (I, 2) & amp; "'
"The Set of Mrs=coNN. Execute (STR)

Accountid=Mrs (" faccountid ")

The amount=Val (MSFlexGrid1 TextMatrix (I, 5))
Amountfor=Val (MSFlexGrid1. TextMatrix (I, 5))
. The exchangerate=1
. Currencyid=1
If MSFlexGrid1. TextMatrix (I, 4)="borrow" Then
. The dc=1
The Else
. The dc=0
End the If
End With

The local error is marked red, please expert explanation, infuse water away

CodePudding user response:

Where is your K3Login defined?

This code is your writing?

CodePudding user response:

Is there a definition and instantiate your CONN?