Case "本月需要联系的客户"
Dim lst As New List(of String) 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
‘如果找不到这个客户本月联系的记录
’定义一个字符集
lst.Add(dr1("客户名称"))
‘把这个客户名称加进字符集
End If
Next
Tables("开发者主控窗口_Table17").Filter = “客户名称 in ('" & string.join("','",lst.toarray) & "')”（这个筛选代码不知道怎么写，我的意思就是筛选出Tables("开发者主控窗口_Table17")中所有属于字符集“lst”的客户）
'上述代码是查找本月没有联系过的全部客户
End Select
加好友 
发短信
Post By：2021/5/9 23:15:00 [显示全部帖子]
