| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何判断出是否属于字符集，且将其全部筛选出来 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=164985) |
| -- 作者：昱飞哥 -- 发布时间：2021/5/9 23:00:00 -- [求助]如何判断出是否属于字符集，且将其全部筛选出来 我有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 请老师赐教！谢谢
|
| -- 作者：有点蓝 -- 发布时间：2021/5/9 23:15:00 -- 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
|
| -- 作者：昱飞哥 -- 发布时间：2021/5/10 0:03:00 -- 谢谢蓝老师，您真敬业，这么晚还在解答问题，感谢 |