A表中有N个号码段
B表中有N个号码
要怎么把B表中含有A表号码中号码的号码标记出来以方便后期的统计？
我现在的做法是这样的
以下内容为程序代码:
1 Dim Arys As List(Of String())
2 Arys = DataTables("购单").GetValues("开始|结束|已用","用完 = " & False )
3 For Each Ary As String() In Arys
4 'Output.Show(Ary(0) & "|" & Ary(1) & "|" & Ary(2))
5 Dim drs As List(Of DataRow)
6 drs = DataTables("寄件").Select("[单号] ＞= " & ary(0) & " And [单号] ＜= " & ary(1) )
7 For Each dr As DataRow In drs
8 dr("购单") = True
9 Next
10 If drs.Count ＜＞ ary(2) Then
11 DataTables("购单").ReplaceFor("已用",drs.Count , "[开始] = " & ary(0))
12 End If
13 Next
这样虽然能把B表的号码标出来，但效率不怎么高，A表中每个号码都要轮一次，，求个高效的解决方法
实例如下
加好友 
发短信
Post By：2015/8/21 10:47:00 [只看该作者]
