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


  共有3612人关注过本帖树形打印复制链接

主题：原来有效的代码，现在不执行了
帅哥哟，离线，有人找我吗？
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
        End If
    Next
End If

上面的代码是在 datacolchanged 里面的，以前一直都没问题的，但是现在发现它不执行了，也没有任何警告。请问是什么原因？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2021/11/20 13:09:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：图片1.jpg
图片点击可在新窗口打开查看

出现上述警告。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：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("|",",")

 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2021/11/20 16:43:00 [只看该作者]

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

图片点击可在新窗口打开查看此主题相关图片如下：图片2.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110495 积分：562359 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/20 16:48:00 [只看该作者]

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06445 秒, 4 次数据查询