【问题解决，但是有了新的问题】请问大家：如何找出标记了的客户最近一次拜访日期，请看例子 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有5293人关注过本帖树形打印复制链接主题：【问题解决，但是有了新的问题】请问大家：如何找出标记了的客户最近一次拜访日期，请看例子

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

msgbox(count)

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

[此贴子已经被作者于2013-10-6 8:36:20编辑过]

VICMA

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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天差值；就显示有多少这样的人数；

感谢帮忙看看。

VICMA

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

msgbox(count)

非常感谢您的解答，find方法用的太妙了！

VICMA

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

msgbox(count)

您好，这个问题解决了，现在还想将所有符合条件的名字列出来，或者通过筛选将表A筛选成所有符合条件的表，不知您有没有办法，多谢了！

下一主题 >> << 上一主题

主题：【问题解决，但是有了新的问题】请问大家：如何找出标记了的客户最近一次拜访日期，请看例子