Exception has been thrown by the target of an invocation. - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Exception has been thrown by the target of an invocation.

共有1997人关注过本帖树形打印复制链接主题：Exception has been thrown by the target of an invocation.

G流星雨

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

加好友

发短信

等级：幼狐帖子：136 积分：1361 威望：0 精华：0 注册：2017/2/25 22:34:00

Exception has been thrown by the target of an invocation. 发帖心情

Post By：2017/8/8 10:49:00 [只看该作者]

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2017.8.3.1

错误所在事件：表，产品检验表1，DataColChanged

详细错误信息：

Exception has been thrown by the target of an invocation.

startIndex cannot be larger than length of string.

Parameter name: startIndex

'If e.DataCol.Name = "结论" AndAlso e.DataRow("外观_壳体") = "OK" AndAlso e.DataRow("外观_包装") = "OK" AndAlso e.DataRow("性能_异响") = "OK" AndAlso e.DataRow("性能_功能") = "OK" Then

'e.DataRow("结论") = "合格"

'Else

'e.DataRow("结论") = "不合格"

'End If

'e.DataRow("作业员")= e.DataRow("条形码").SubString(4,2)

全部注释掉，仍然报错，不知道问题在哪？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/8/8 10:52:00 [只看该作者]

你datacolchanged事件的全部代码贴出来看看。

或者自行定位出错位置 http://www.foxtable.com/webhelp/scr/1485.htm

G流星雨

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

加好友

发短信

等级：幼狐帖子：136 积分：1361 威望：0 精华：0 注册：2017/2/25 22:34:00

Post By：2017/8/8 10:55:00 [只看该作者]

If e.DataCol.Name = "结论" AndAlso e.DataRow("外观_壳体") = "OK" AndAlso e.DataRow("外观_包装") = "OK" AndAlso e.DataRow("性能_异响") = "OK" AndAlso e.DataRow("性能_功能") = "OK" Then

e.DataRow("结论") = "合格"

Else

e.DataRow("结论") = "不合格"

End If

e.DataRow("作业员")= e.DataRow("条形码").SubString(4,2)

全部代码，就是全部注释掉，也报上面的错误

[此贴子已经被作者于2017/8/8 10:56:16编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/8/8 10:58:00 [只看该作者]

去看表【产品检验表1】的DataColChanged事件；再去看全局表事件的DataColChanged事件。

肯定有影响的代码。

G流星雨

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

加好友

发短信

等级：幼狐帖子：136 积分：1361 威望：0 精华：0 注册：2017/2/25 22:34:00

Post By：2017/8/8 10:58:00 [只看该作者]

If e.DataCol.Name = "条形码" Then

Dim dr As DataRow

dr = e.DataTable.Find("条形码 = '" & e.NewValue & "'")

If dr IsNot Nothing AndAlso dr("结论") = "合格" Then ''判定重复扫码

dr("维修后测试结果")="重复扫码"

MessageBox.Show("此条形码已经存在!","提示", MessageBoxButtons.YesNo)

e.DataRow.Delete()

Else

dr("维修后测试结果")="维修合格" ''判定维修

''e.Cancel = True

e.DataRow.Delete()

End If

上面的代码是DataColChanging，我把datacolchanged代码删掉，会报DataColChanging错误

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/8/8 11:04:00 [只看该作者]

以下是引用G流星雨在2017/8/8 10:58:00的发言

上面的代码是DataColChanging，我把datacolchanged代码删掉，会报DataColChanging错误

报什么错？

尽量不要在datacolchanging等事件删除行，如果要删除行，你应该在事件前后加上systemready的代码。

http://www.foxtable.com/webhelp/scr/2218.htm

做个具体例子上来测试。

G流星雨

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

加好友

发短信

等级：幼狐帖子：136 积分：1361 威望：0 精华：0 注册：2017/2/25 22:34:00

Post By：2017/8/8 12:22:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理.foxdb

例子在附件

G流星雨

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

加好友

发短信

等级：幼狐帖子：136 积分：1361 威望：0 精华：0 注册：2017/2/25 22:34:00

Post By：2017/8/8 13:11:00 [只看该作者]

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.8.3.1
错误所在事件：窗口,窗口1,条形码,KeyDown
详细错误信息：
This row has been removed from a table and does not have any data. BeginEdit() will allow creation of new data in this row.

另外：条形码输入不重复的数值会判定重复