Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【问题解决，但是有了新的问题】请问大家：如何找出标记了的客户最近一次拜访日期，请看例子


  共有5275人关注过本帖树形打印复制链接

主题：【问题解决，但是有了新的问题】请问大家：如何找出标记了的客户最近一次拜访日期，请看例子
帅哥哟，离线，有人找我吗？
VICMA
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：237 积分：1540 威望：0 精华：0 注册：2013/2/28 22:30:00 		【问题解决，但是有了新的问题】请问大家：如何找出标记了的客户最近一次拜访日期，请看例子  发帖心情 Post By：2013/10/5 19:17:00 [只看该作者]

想做一个按钮，点击后计算所有标记了的客户，他们最近一次拜访的日期与今天比较，如果大于五天则提醒，用一个对话框显示“您有？个客户已经5天没有拜访”这样的提醒，


多谢啦！
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:客户拜访.foxdb


代码如下：多谢 有点甜老师

Dim dt As DataTable = DataTables("表A")
Dim names As List(Of String) = dt.GetUniqueValues("姓名 is not null", "姓名")
Dim count As Integer = 0
For Each name As String In names
    Dim fdr As DataRow = dt.Find("姓名 = '" & name & "'", "日期 desc")
    If fdr IsNot Nothing AndAlso fdr("日期") <= Date.Today.AddDays(-5) Then
        count += 1
    End If
Next
msgbox(count)


请大家看例子，问题已经解决，但是有了新的问题，想将得到名字用表A筛选出来，告诉用户哪些客户需要拜访， 请大家帮忙看看，多谢了！


[此贴子已经被作者于2013-10-6 8:36:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/10/5 19:42:00 [只看该作者]

 参考下面的代码

Dim filter As String = "标记 = true and 日期 <= #" & Date.Today.AddDays(-5) & "#"
Dim count As Integer = DataTables("表A").Compute("count(_Identify)", filter)
msgbox(count)
Tables("表A").Filter = filter
 回到顶部
帅哥哟，离线，有人找我吗？
VICMA
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：237 积分：1540 威望：0 精华：0 注册：2013/2/28 22:30:00 		  发帖心情 Post By：2013/10/5 21:19:00 [只看该作者]

以下是引用有点甜在2013-10-5 19:42:00的发言：
 参考下面的代码

Dim filter As String = "标记 = true and 日期 <= #" & Date.Today.AddDays(-5) & "#"
Dim count As Integer = DataTables("表A").Compute("count(_Identify)", filter)
msgbox(count)
Tables("表A").Filter = filter

非常感谢您的解答，但是还有一个问题：客户拜访的表中含有很多的历史数据，可能同一个客户我拜访了很多次，我需要找出每一个客户最近一次的拜访记录，然后在比较每一个客户的拜访时间和今天的差，您的代码找出来了所有历史数据中标记了并且日期小于今天-5，但是我只需要找出最近一次的结果即可，不然只要我打开表就会提示，因为以往的记录都符合您的条件。
问题变成了：找出每一个标记了的客户的最近拜访时间；比较这些时间同今天；如果有5天差值；就显示有多少这样的人数；

感谢帮忙看看。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/10/5 21:36:00 [只看该作者]

 参考代码

Dim dt As DataTable = DataTables("表A")
Dim names As List(Of String) = dt.GetUniqueValues("姓名 is not null", "姓名")
Dim count As Integer = 0
For Each name As String In names
    Dim fdr As DataRow = dt.Find("姓名 = '" & name & "'", "日期 desc")
    If fdr IsNot Nothing AndAlso fdr("日期") <= Date.Today.AddDays(-5) Then
        count += 1
    End If
Next
msgbox(count)
 回到顶部
帅哥哟，离线，有人找我吗？
VICMA
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：237 积分：1540 威望：0 精华：0 注册：2013/2/28 22:30:00 		  发帖心情 Post By：2013/10/5 22:53:00 [只看该作者]

以下是引用有点甜在2013-10-5 21:36:00的发言：
 参考代码

Dim dt As DataTable = DataTables("表A")
Dim names As List(Of String) = dt.GetUniqueValues("姓名 is not null", "姓名")
Dim count As Integer = 0
For Each name As String In names
    Dim fdr As DataRow = dt.Find("姓名 = '" & name & "'", "日期 desc")
    If fdr IsNot Nothing AndAlso fdr("日期") <= Date.Today.AddDays(-5) Then
        count += 1
    End If
Next
msgbox(count)

非常感谢您的解答，find方法用的太妙了！
 回到顶部
帅哥哟，离线，有人找我吗？
VICMA
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：237 积分：1540 威望：0 精华：0 注册：2013/2/28 22:30:00 		  发帖心情 Post By：2013/10/6 0:18:00 [只看该作者]

以下是引用有点甜在2013-10-5 21:36:00的发言：
 参考代码

Dim dt As DataTable = DataTables("表A")
Dim names As List(Of String) = dt.GetUniqueValues("姓名 is not null", "姓名")
Dim count As Integer = 0
For Each name As String In names
    Dim fdr As DataRow = dt.Find("姓名 = '" & name & "'", "日期 desc")
    If fdr IsNot Nothing AndAlso fdr("日期") <= Date.Today.AddDays(-5) Then
        count += 1
    End If
Next
msgbox(count)

您好，这个问题解决了，现在还想将所有符合条件的名字列出来，或者通过筛选将表A筛选成所有符合条件的表，不知您有没有办法，多谢了！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/10/6 10:50:00 [只看该作者]

 回复6楼

Dim dt As DataTable = DataTables("表A")
Dim names As List(Of String) = dt.GetUniqueValues("姓名 is not null", "姓名")
Dim count As Integer = 0
Dim idxs As String = ""
For Each name As String In names
    Dim fdr As DataRow = dt.Find("姓名 = '" & name & "'", "日期 desc")
    If fdr IsNot Nothing AndAlso fdr("日期") <= Date.Today.AddDays(-5) Then
        count += 1
        idxs += fdr("_identify") & ","
    End If
Next
msgbox(count)
If count > 0 Then
    Tables(dt.Name).Filter = "_identify in (" & idxs.Trim(",") & ")"
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询