[求助]请问如何解决这样的错误提示！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问如何解决这样的错误提示！

共有3389人关注过本帖树形打印复制链接主题：[求助]请问如何解决这样的错误提示！

rophy0952

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

[求助]请问如何解决这样的错误提示！ 发帖心情

Post By：2015/3/22 14:00:00 [显示全部帖子]

表属性的“datacolchanged”事件中的如下代码，在执行的过程中提示：“索引超出了数组界限。”，试着弹出结果，与实际想要的一致，但就不知什么原因会出现这个错误提示？请指教，谢谢！

If e.DataCol.name = "规格" Then

If e.DataRow.Isnull("规格") = True Then

e.DataRow("卷芯宽度") = Nothing

Else

e.DataRow("卷芯宽度") = e.DataRow("规格").Split("*")(1)

End If

rophy0952

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/3/22 14:26:00 [显示全部帖子]

我的规格是这样的“3.5*14*1.5”，想取两个*号中间的数（14），按照上面代码修改后，卷芯宽度值为空

rophy0952

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/3/22 14:32:00 [显示全部帖子]

又出现这样的提示“没有为类型“String()” 和类型“Integer” 定义运算符“<”。”

rophy0952

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/3/22 15:09:00 [显示全部帖子]

刚才用排除法将所有代码屏蔽掉，逐一排除，发现是在执行下面的代码时，出现的错误提示：“索引超出了数组界限。”，该如何处理呢，谢谢！

Select Case e.DataCol.name

Case "不良品_只数","不良品_毛重","卷芯单重"

Dim dr As DataRow = e.DataRow

dr("不良品_净重") = dr("不良品_毛重")-dr("不良品_只数")*dr("卷芯单重")

dr.save

End Select

rophy0952

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/3/22 15:24:00 [显示全部帖子]

有这段代码，但还是注释的状态呀？beforesavedatarow事件中无代码

'Select Case e.DataCol.name

'Case "不良品_净重","单边_不良净重"

'Dim r As Row = Tables("核数表").Current

'Tables("核数明细表").current.save

'r("不良品_净重") = DataTables("核数明细表").SQLCompute("sum(不良品_净重)","流水号 = '" & e.DataRow("流水号") & " '") + DataTables("核数明细表").SQLCompute("sum(单边_不良净重)","流水号 = '" & e.DataRow("流水号") & " '")

'r.save

'End Select

[此贴子已经被作者于2015/3/22 15:24:48编辑过]