表:datacolchanged中代码如下:
Dim s1 As String = e.DataRow("收款单位")
Dim s3 As String
Dim s4 As String
MessageBox.Show(1)
s3 = s1.Substring(0,4).Insert(4,"现金流水账")
s4 = s1.Substring(0,4).Insert(4,"银行流水账")
MessageBox.Show(2)
If e.DataCol.name = "入账" AndAlso e.newvalue = True And e.DataRow("收款单位") <> Nothing Then
MessageBox.Show(3)
If e.DataRow("去向") = "银行" Then
MessageBox.Show(4)
e.DataRow("客户名称") = s4
MessageBox.Show(5)
Dim dr As DataRow = DataTables(s4).find("单据编号 = '" & e.DataRow("收款单编号") & "'")
If dr Is Nothing Then
dr = DataTables(s4).AddNew()
dr("收入") = e.DataRow("金额")
End If
End If
If e.DataRow("去向") = "储蓄卡" Then
e.DataRow("客户名称") = s3
Dim dt As DataRow = DataTables(s3).find("单据编号 = '" & e.DataRow("收款单编号") & "'")
If dt Is Nothing Then
dt = DataTables(s3).AddNew()
dt("收入") = e.DataRow("金额")
End If
End If
End If
调试 报“2”,老提示:
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2016.7.29.1
错误所在事件:表,收款2,DataColChanged
详细错误信息:
调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length
开发版,重启也无效。其他动作执行正常,就是提示报错,用命令来调试也没问题。
目的: 如 收款单位为: 北京**电子有限公司 找两个表:北京**银行流水账 北京**现金流水账 。
该表中只有这一个代码,其他事件中无代码。
请帮我看一下,什么原因?
[此贴子已经被作者于2016/11/15 17:22:52编辑过]