我有2个datatable,分别是datatable("客户信息表")和datatable("客户跟进信息表")。
有1个窗口副本表table("开发者主控窗口_Table17")
我的需求：筛选出当月还没有跟进的所有客户。（其实就是先查找datatable("客户跟进信息表")中“跟进时间”列的日期是本月的所有客户，然后再在datatable("客户信息表")把这些客户去掉）
我写了如下代码：
Case "本月需要联系的客户"
For Each dr1 As DataRow In DataTables("客户信息表").DataRows
‘先遍历客户信息表
Dim y As String = Date.Today.Year
Dim m As String = Date.Today.Month
Dim t1 As New Date(y, m, 1)
Dim t2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取本月的最后一天
Dim dr2 As DataRow = DataTables("客户跟进信息表").Find("跟进客户 = '" & dr1("客户名称") &"' And 跟进时间 >=#" & t1 & "# And 跟进时间 <= #" & t2 & "#")
’找出这个客户本月联系的记录
If dr2 Is Nothing Then
‘如果找不到这个客户本月联系的记录
Dim lst As New List(of String)
’定义一个字符集
lst.Add(dr1("客户名称"))
‘把这个客户名称加进字符集
End If
Next
Tables("开发者主控窗口_Table17").Filter = ？（这个筛选代码不知道怎么写，我的意思就是筛选出Tables("开发者主控窗口_Table17")中所有属于字符集“lst”的客户）
'上述代码是查找本月没有联系过的全部客户
End Select
请老师赐教！谢谢
加好友 
发短信
Post By：2021/5/9 23:00:00 [显示全部帖子]
