以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问多值中筛选一个列的值语句如何写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146086)
--  作者：飞云
--  发布时间：2020/2/15 21:33:00
--  请问多值中筛选一个列的值语句如何写？
表A  【姓名】列 值为张三  【日期】（字符型）2020-02-02,2020-02-03
表A  【姓名】列 值为李四   【日期】（字符型）2020-02-01,2020-02-02,2020-02-03，.....

表B   【姓名合集】 列为赵武、朱思、张三、李四、马奇.....    【日期】2020-02-01,2020-02-02,2020-02-03，.....


如果表A【姓名】包含、【日期】大于等于表B列中的数据则被筛选出来，一直琢磨着，不知道怎默写，用SQL语句能直接查询码？还是用datatable语句？请教老师，谢谢！！！！！！

Dim tb As Table = e.Form.Controls("Table2").Table
For Each dr As DataRow In dt1.DataRows    
    For Each rq As String In dr("日期").Split(",")
        If Format(rq,"yyyy-MM-dd")>=Format(Date.Today,"yyyy-MM-dd") Then            
            For Each cc As String In dr("姓名").Split("、")
                If User_Group=cc Then
                    Dim fdr As DataRow = dt.Find("编号=\'" & dr("编号") & "\'")
                    If fdr Isnot Nothing Then
                        Dim r As Row= tb.AddNew()
                        r("第一列") =dr("第一列")
                        r("第二列")=dr("第二列")
                       
                    End If
                End If
            Next
        End If
    Next
Next
--  作者：有点蓝
--  发布时间：2020/2/16 20:33:00
--  
没看懂，截图表格数据举例说明一下