先分页加载，然后找出#后面数字相同的行，并筛选出来。
For Each dr As DataRow In DataTables("表B").dataRows
If dr("任务").StartsWith("#") =True Then
Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("任务"), "[#0-9]+")
celltext=Nothing
'For i As Integer = 0 To Lmst.Length-1
celltext = mc(0).value
'Next
If str0.Contains(celltext) =False Then
id0 + = dr("_Identify") & ","
Else
str1.Add(celltext)
End If
str0.Add(celltext)
End If
Next
msgbox(id0)
'++++++++++++++++++++++++++++++++
For Each dr As DataRow In DataTables("表B").dataRows
If dr("任务").StartsWith("#") =True Then
Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("任务"), "[#0-9]+")
celltext=Nothing
'For i As Integer = 0 To Lmst.Length-1
celltext= mc(0).value
'Next
If str1.Contains(celltext) Then
id1 + = dr("_Identify") & ","
End If
End If
Next
msgbox(id1)
'+++++++++++++++++++++++++++++++++
If id1 > "" Then
id1 = id1.Trim(",")
flt = "_Identify In (" & id1 & ")"
End If
msgbox(flt)
DataTables("表B").loadFilter = flt
DataTables("表B").load()
加好友 
发短信
Post By：2018/9/19 10:32:00 [只看该作者]
