Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教一段子表条件获取代码


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

主题：[求助]请教一段子表条件获取代码
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		[求助]请教一段子表条件获取代码  发帖心情 Post By：2017/5/27 11:31:00 [只看该作者]

关联两个父表和子表，
对于关联行，若子表的条件列每一行都不为空，则父表结果列=OK，若每一行都为空，父表结果列=NO，若不全为空，父表结果列=NONO

For Each d As Row In Tables(父表").Rows
        Dim t As Date = d("结果")
For Each r As Row In Tables(子表").Rows
        Dim p As Date = r("条件")
        If  p ？？？？？？？？？？？？？
           t = “OK”



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


加好友 发短信
等级：超级版主 帖子：110813 积分：564003 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/27 12:03:00 [只看该作者]

For Each d As Row In Tables(父表").Rows
    If d.DataRow.GetChildRows("子表").Count = 0 Then
        d("结果") = "NONO"
    Else
        If DataTables(子表").Find("编号='" & d("编号") & "' and 条件 is null") IsNot Nothing
            d("结果") = "NO"
        Else
            d("结果") = "OK"
        End If
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2017/5/27 13:20:00 [只看该作者]

老师，代码有点问题，我再描述一下

关联两个父表和子表，关联的列名称为"零件信息"
对于关联行，
若子表的"条件"列每一行都有内容，则父表"结果"列=OK，
若子表的"条件"列每一行都没有内容，则父表"结果"列=NO，
若子表的"条件"列只有部分行有内容，则父表"结果"列=NONO
[此贴子已经被作者于2017/5/27 13:23:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
l1q2lq
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：422 积分：3430 威望：0 精华：0 注册：2015/5/20 8:44:00 		  发帖心情 Post By：2017/5/27 15:00:00 [只看该作者]

请教一下

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


加好友 发短信
等级：超级版主 帖子：110813 积分：564003 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/27 16:12:00 [只看该作者]

For Each d As Row In Tables(父表").Rows
    Dim count As Integer = d.DataRow.GetChildRows("子表").Count
    If count = 0 Then
        d("结果") = "NO"
    Else
        Dim count2 As Integer = DataTables(子表").Compute("count(编号)","编号='" & d("编号") & "' and 条件 is null")
        If  count2 = 0 
            d("结果") = "OK"
        ElseIf count2 < count
            d("结果") = "NONO"
        Else
            d("结果") = "NO"
        End If
    End If
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询