Foxtable(狐表)用户栏目专家坐堂 → 求助:人员关联表 根据告知内容表中的是与否来进行数据选择


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

主题:求助:人员关联表 根据告知内容表中的是与否来进行数据选择

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:人员关联表 根据告知内容表中的是与否来进行数据选择  发帖心情 Post By:2019/2/12 17:08:00 [只看该作者]

现在有两张表  人员关联表   告知内容表 
想实现根据告知内容表中的是否告知  内容如果是“是”
那么就把人员关联表中的复选框全部取消
  
如果是否告知  内容如果是“否”
那么就把人员关联表中的复选框  按照结果是“否”对应的姓名值进行选中

下面的代码只能实现全部是“是”后取消勾选,“否”后全部选择,不能实现“是“”否”都存在的情况下,自动按照上面要求进行判断。

图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看

If Tables.Contains("人员关联表") Then
    For Each r As Row In Tables("人员关联表").Rows
        If r("姓名") IsNot Nothing Then
            For Each r1 As Row In Tables("告知内容").Rows
                If r1("是否告知") ="否" Then
                    Dim dr As DataRow
                    dr = DataTables("人员关联表").Find("姓名 = '" & r1("姓名") & "'")
                    If dr IsNot Nothing Then
                        Dim wz As Integer = Tables("人员关联表").FindRow(dr)
                        If wz >= 0 Then
                            Tables("人员关联表").Position = wz
                            r.Checked = True
                        End If
                    End If
                Else
                    r.Checked = False
                End If
            Next
        End If
    Next
End If


[此贴子已经被作者于2019/2/12 17:40:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/12 17:37:00 [只看该作者]

If Tables.Contains("人员关联表") Then
    For Each r As Row In Tables("人员关联表").Rows
        If r("姓名") IsNot Nothing Then
            Dim drs = DataTables("告知内容").Select("姓名 = '" & r("姓名") & "' and (是否告知 is null or 是否告知 <> '是')")
            If drs.count = 0 Then
                r.Checked = False
            Else
                r.checked = True
            End If
        End If
    Next
End If

 回到顶部