Dim ary1() As String = {"本合同符合国家法律法规,符合公司经营范围", "各项产品要求都有明确的规定", "文字叙述清楚,无含糊不清或矛盾之处", "公司有能力实现产品的技术要求", "能满足合同交货期的规定", "成本费用及付款风险可控", "无特殊要求"}
Dim ary2() As String = {"第一列", "第二列", "第三列", "第四列", "第五列", "第六列", "第七列"}
If e.DataCol.Name = "事业部评审意见" Then
Dim str As String = e.DataRow("事业部评审意见")
'MessageBox.Show("你选择的是" & str & "项.")
Dim ary3 = str.split("|")
'MessageBox.Show("你选择的是" & ary3(0) & "项.")
For i As Integer = 0 To ary1.length-1
Dim idx As Integer = array.indexof(ary3, ary1(i))
If idx >= 0 Then
Tables("合同评审").current(ary2(i)) = True
Else
Tables("合同评审").current(ary2(i)) = False
End If
Next
Else 'MessageBox.Show("你选择的是" & "项.")
End If
Dim ary4() As String = {"合同及技术协议", "图纸", "标准", "其他"}
Dim ary5() As String = {"第八列", "第九列", "第十列", "第十一列"}
If e.DataCol.Name = "评审表附件" Then
Dim str As String = e.DataRow("评审表附件")
'MessageBox.Show("你选择的是" & str & "项.")
Dim ary6 = str.split(",")
'MessageBox.Show("你选择的是" & ary3(0) & "项.")
For i As Integer = 0 To ary1.length-1
Dim idx As Integer = array.indexof(ary6, ary4(i))
If idx >= 0 Then
Tables("合同评审").current(ary5(i)) = True
Else
Tables("合同评审").current(ary5(i)) = False
End If
Next
Else 'MessageBox.Show("你选择的是" & "项.")
End If
运行显示.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：表，合同评审，DataColChanged
详细错误信息：
调用的目标发生了异常。
索引超出了数组界限。
哪出了问题？
加好友 
发短信
Post By：2018/4/4 8:50:00 [显示全部帖子]
