i = 1
Do While i <= 7
voucherentrys.Add
With Voucher.entries(Voucher.entries.Count)
.explanation = CStr(MSFlexGrid1.TextMatrix(i, 1))
Dim mrs As Object
Dim str As String
coNN.ConnectionString = K3Login.PropsString
coNN.Open
str = "select * from t_account where fnumber='" & MSFlexGrid1.TextMatrix(i, 2) & "'"
Set mrs = coNN.Execute(str)
.accountid = mrs("faccountid")
.amount = Val(MSFlexGrid1.TextMatrix(i, 5))
.amountfor = Val(MSFlexGrid1.TextMatrix(i, 5))
.exchangerate = 1
.currencyid = 1
If MSFlexGrid1.TextMatrix(i, 4) = "借" Then
.dc = 1
Else
.dc = 0
End If
End With
報錯的地方已經標紅 請行家解答，灌水走開
uj5u.com熱心網友回復：
你的K3Login在哪定義的？這段代碼完全是你寫的么？
uj5u.com熱心網友回復：
請問你的CONN有沒有定義和實體化？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/106516.html
標籤：VB基礎類
上一篇：vba 郵箱操作方法
下一篇：vb.net中怎么打開保存的表單