表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
加好友 
发短信
Post By：2020/2/15 21:33:00 [只看该作者]
