原来有效的代码，现在不执行了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 原来有效的代码，现在不执行了

共有3690人关注过本帖树形打印复制链接主题：原来有效的代码，现在不执行了

edisontsui

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

等级：七尾狐帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00

原来有效的代码，现在不执行了 发帖心情

Post By：2021/11/20 10:22:00 [显示全部帖子]

'更新所应用的产品

If e.DataCol.Name = "模具型号" Then

e.DataRow("所应用的产品") = Nothing

Dim Filter91 As String = "[模具型号] = '" & e.DataRow("模具型号") & "'"

Dim drs91 As List(Of DataRow) = DataTables("物料字典").Select(Filter91)

For Each dr91 As DataRow In drs91

If dr91 IsNot Nothing

If e.DataRow("所应用的产品") = Nothing

e.DataRow("所应用的产品") = dr91("物料编号")

Else

e.DataRow("所应用的产品") = e.DataRow("所应用的产品") & "," & dr91("物料编号")

End If

上面的代码是在 datacolchanged 里面的，以前一直都没问题的，但是现在发现它不执行了，也没有任何警告。请问是什么原因？

edisontsui

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

等级：七尾狐帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2021/11/20 13:09:00 [显示全部帖子]

此主题相关图片如下：图片1.jpg

出现上述警告。

edisontsui

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

等级：七尾狐帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2021/11/20 16:43:00 [显示全部帖子]

我试过加这个符号，还是有其他问题：

此主题相关图片如下：图片2.jpg

主题：原来有效的代码，现在不执行了