我在表事件 AfterSelRangeChange中设置此代码

我在窗口里面做了两个表为副本表,一个按钮事件为:

Tables("控制_Table1").DataSource = DataTables("裁剪数")

Dim s As String

For i As Integer = 0 To Tables("裁剪数").Cols.Count -1

   s = s & Tables("裁剪数").Cols(i).Name & "|" & Tables("裁剪数").Cols(i).Width & "|"

Next

Tables("控制_Table1").SetColVisibleWidth(s.Trim("|"))

Dim V1 As New List(Of String)

V1.AddRange("_identify|IO|口岸|色号|色名|尺码|尺码1|尺码2|尺码3|尺码4|尺码5|尺码6|尺码7|尺码8|TOTAL".Split("|"))

For Each c1 As Col In Tables("控制_Table1").Cols

  c1.Visible = V1.Contains(c1.name)

Next

Tables("控制_Table2").DataSource = DataTables("出运资料")

Dim x As String

For i As Integer = 0 To Tables("出运资料").Cols.Count -1

   x = x & Tables("出运资料").Cols(i).Name & "|" & Tables("出运资料").Cols(i).Width & "|"

Next

Tables("控制_Table2").SetColVisibleWidth(X.Trim("|"))

Dim V As New List(Of String)

V.AddRange("_identify|IO|客户名称|生产批号|口岸|走货件数|走货箱数|裁剪数|外发厂送货数|短缺数|装运日期|裁剪|车缝|整烫|洗水|包装|长|宽|高|体积|总立方数|总毛重|总净重".Split("|"))

For Each c As Col In Tables("控制_Table2").Cols

   c.Visible = V.Contains(c.name)

Next

打开后一直出错,出错的提示:

此主题相关图片如下：tm截图未命名-1.jpg


此主题相关图片如下：未命名-2.jpg


此主题相关图片如下：tm截图未命名-3.jpg

    而且这个是第一次切换不会有提示,但是我做了一个区域统计后,再切换表就出现提示,按钮事件没有问题的,我把表事件删除再切换一点问题都没有,只要加入就有问题.

   但 是可以统计,这个是怎么回事?怎么修改.