Foxtable(狐表) → 用户栏目 → 专家坐堂 → 非关联验证


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

主题：非关联验证
帅哥哟，离线，有人找我吗？
实话实说
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2017/4/25 18:27:00 [只看该作者]

表A代码还是不行。当表B用料不全时，（比如BV 1.5 PVC J-70的用料空白）表A还是能勾选

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


加好友 发短信
等级：九尾狐 帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2017/4/25 19:26:00 [只看该作者]

表A的代码这样也不行

Select Case e.DataCol.name
    Case "产品型号","产品规格"
        'Dim fdr As DataRow = DataTables("表b").find("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
        Dim fdr As List(Of DataRow) = DataTables("表b").Select("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
        'If fdr IsNot Nothing Then
        If fdr IsNot Nothing And DataTables("表b").DataRows("用料") IsNot Nothing Then
            e.DataRow("标识") = True
        Else
            e.DataRow("标识") = False
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106809 积分：543246 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/4/25 20:52:00 [只看该作者]

表B_DataColChanged

If e.DataCol.name = "产品型号" Then
    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.oldvalue & "' and 产品规格='" & e.DataRow("产品规格") & "'")
    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
End If
If e.DataCol.name = "产品规格" Then
    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.OldValue & "'")
    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
End If
If e.DataCol.name = "用料" Then
    DataTables("表a").DataCols("产品型号").RaiseDataColChanged("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
End If

表A_DataColChanged
Select Case e.DataCol.name
    Case "产品型号","产品规格"
        Dim fdr As DataRow = DataTables("表b").find("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "' and (用料= 0 or 用料 is null)")
        If fdr IsNot Nothing Then
            e.DataRow("标识") = False
        Else
            e.DataRow("标识") = True
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2017/4/26 7:47:00 [只看该作者]

表A的代码没有通过


图片点击可在新窗口打开查看此主题相关图片如下：非关联.gif
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2017/4/26 7:51:00 [只看该作者]

我上传的是GIF动画,怎么不动呢?

改变规格内容，勾选不符合要求,特别是表B有多条对应记录,不是找到1条用料就勾选,如果有1条用料是空的就不勾选

[此贴子已经被作者于2017/4/26 8:04:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106809 积分：543246 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/4/26 8:52:00 [只看该作者]

Select Case e.DataCol.name
    Case "产品型号","产品规格"
        Dim fdr As DataRow = DataTables("表b").find("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "'")
        If fdr IsNot Nothing Then
            e.DataRow("标识") = True
        Else
            e.DataRow("标识") = False
            Return
        End If
        fdr = DataTables("表b").find("产品型号='" & e.DataRow("产品型号") & "' and 产品规格='" & e.DataRow("产品规格") & "' and (用料= 0 or 用料 is null)")
        If fdr IsNot Nothing Then
            e.DataRow("标识") = False
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2017/4/26 14:10:00 [只看该作者]

外出刚回.可以啦,谢谢
 回到顶部
总数 17 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询