If e.DataCol.name = "是否参与记账" And e.DataRow("是否参与记账") = True And E.DataRow("收款摘要") = ""
MessageBox.Show("您好!您的收款摘要很可能为空白,请补充完整吧")
End If
Dim a As Integer
If e.DataCol.name = "是否参与记账" And e.DataRow("是否参与记账") = True
Dim DRS As List(OF DataRow)
DRS = DataTables("续时账模板").Select("[记账参数匹配列] ='"& E.DataRow("收款摘要") &"'")
A=DRS.Count
For I As Integer = 1 To A
Tables("销售续时账").AddNew(1)
Tables("销售续时账").current("记账日期") = e.DataRow("日期")
Tables("销售续时账").current("摘要") = e.DataRow("收款摘要") & e.DataRow("客户姓名")
Tables("销售续时账").current("科目") = drs(I)("科目")
MessageBox.Show(1)
If drs(I)("方向") = "借" Then
Tables("销售续时账").current("借方金额") = e.DataRow("收款金额")
Tables("销售续时账").current("贷方金额") = e.DataRow("收款金额")-e.DataRow("收款金额")
Else
Tables("销售续时账").current("借方金额") = e.DataRow("收款金额") - e.DataRow("收款金额")
Tables("销售续时账").current("贷方金额") = e.DataRow("收款金额")
End If
MessageBox.Show(2)
Tables("销售续时账").current("核算项目1") = drs(I)("核算项目1")
Tables("销售续时账").current("核算项目2") = drs(I)("核算项目2")
Tables("销售续时账").current("核算项目3") = drs(I)("核算项目3")
MessageBox.Show(3)
Next
End If
各位老师，下午好，我三条调试信息都能正常显示，但最后却总是蹦出来：
错误所在事件：表，收款台账_收银员，DataColChanged
详细错误信息：
调用的目标发生了异常。
索引超出范围。必须为非负值并小于集合大小。
参数名: index
我检查了几遍感觉我写的代码是没有问题的，是不是系统有bug啊
加好友 
发短信
Post By：2021/4/19 15:20:00 [只看该作者]
