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

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

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

有点蓝

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

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

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

物料字典没有符合条件的数据，或者没有加载符合条件的数据。

代码可以改进一下

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

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

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

dim s as string = e.DataRow("所应用的产品") & "," DataTables("物料字典").GetComboListString("物料编号"，Filter91).replace("|",",")

msgbox(s) '自行调试一下，如果能够弹出来，说明事件正常执行了，如果没有值，说明没有符合条件的数据

e.DataRow("所应用的产品") = s.trim(",")

End If

有点蓝

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

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

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

输漏一个符号，很简单的错误，不用就等着我们来改吧

dim s as string = e.DataRow("所应用的产品") & "," & DataTables("物料字典").GetComboListString("物料编号"，Filter91).replace("|",",")

有点蓝

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

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

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

那是这个事件前面也定义了一个名称为s的变量，重复了，换个名称使用即可

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