Foxtable(狐表)用户栏目专家坐堂 → [求助]这个软件能做报警功能么?


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

主题:[求助]这个软件能做报警功能么?

帅哥哟,离线,有人找我吗?
zhangtongrt
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
[求助]这个软件能做报警功能么?  发帖心情 Post By:2016/7/14 7:55:00 [显示全部帖子]

比如我有销售表,由于流量比较大,每五天做增加一个销售表。我想要找出2个月内都没有销售记录的人应该怎么做。。比如‘张三’最后一次销售时间是2016年5月14日。那么到两个月的今天就自动报警,显示张三已经2个月没有销售记录了。


 回到顶部
帅哥哟,离线,有人找我吗?
zhangtongrt
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
  发帖心情 Post By:2016/7/14 11:01:00 [显示全部帖子]

这个只设置时间,按时间来。。。我想检索后两个月里销售单里有没有这个人。。。好像不太一样


 回到顶部
帅哥哟,离线,有人找我吗?
zhangtongrt
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
  发帖心情 Post By:2016/7/14 14:33:00 [显示全部帖子]

以下是引用大红袍在2016/7/14 11:06:00的发言:

 先查两个月内的所有人,然后对比全部的人,看是否在两个月的人里。

 

 红色代码空格去掉

 

DataTables("表a").loadfilter = "第一列 not in (select 第一列 fr om {表A} where DateDiff('m', 日期, Date()) < 2 )"
DataTables("表a").load

意思是做一个做一个新表将这几个月的数据读取过去,然后做一个按钮来对比么?


 回到顶部
帅哥哟,离线,有人找我吗?
zhangtongrt
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
  发帖心情 Post By:2016/7/14 14:37:00 [显示全部帖子]

以下是引用大红袍在2016/7/14 14:35:00的发言:

1、不要弄那么多表啊;尽量用一个表啊;

 

2、如果要多表,那你就做个查询表把各个表的内容合并进来,再查询

 

做了查询表了,可以把数据统计过来


 回到顶部
帅哥哟,离线,有人找我吗?
zhangtongrt
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
  发帖心情 Post By:2016/7/14 14:50:00 [显示全部帖子]

实例比较大,写的东西也乱,比较麻烦。我上传一个新建的。

要检索“姓名”和“介绍人”两项里面2个月内没有出现名字的人。(有查询表,做了个按钮,将数据都弄到查询表里了)

这个能不能设置成自动提醒的啊?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:实验.table


 回到顶部
帅哥哟,离线,有人找我吗?
zhangtongrt
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
  发帖心情 Post By:2016/7/14 15:12:00 [显示全部帖子]

以下是引用大红袍在2016/7/14 14:59:00的发言:
Dim t As Table = Tables("查询表")
Dim d As Date = Date.Today
t.filter = "编号 not in ('" & t.DataTable.GetComboListString("编号", "日期 >= #" & d.AddMonths(-1) & "# and 日期 < #" & d.AddDays(1) & "#").replace("|", "','") & "')"

好像不对劲哈,把这个代码做成按钮之后只显示出赵六了。。。王五也有2个月没销售记录和推荐记录了。。没有显示出来


 回到顶部
帅哥哟,离线,有人找我吗?
zhangtongrt
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
  发帖心情 Post By:2016/7/14 15:20:00 [显示全部帖子]

以下是引用大红袍在2016/7/14 15:14:00的发言:
Dim t As Table = Tables("查询表")
Dim d As Date = Date.Today
t.filter = "姓名 not in ('" & t.DataTable.GetComboListString("姓名", "日期 >= #" & d.AddMonths(-2) & "# and 日期 < #" & d.AddDays(1) & "#").replace("|", "','") & "')"

姓名我自己改过试过,也不对的。李四介绍人了,结果李四还被筛选出来了


 回到顶部
帅哥哟,离线,有人找我吗?
zhangtongrt
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
  发帖心情 Post By:2016/7/14 15:29:00 [显示全部帖子]

以下是引用大红袍在2016/7/14 15:24:00的发言:
Dim t As Table = Tables("查询表")
Dim d As Date = Date.Today
Dim filter As String = "日期 >= #" & d.AddMonths(-2) & "# and 日期 < #" & d.AddDays(1) & "#"
t.filter = "姓名 not in ('" & t.DataTable.GetComboListString("姓名", filter).replace("|", "','") &  "','" & t.DataTable.GetComboListString("介绍人", filter).Replace("|", "','") & "')"

我在实例里实验了一下。这个貌似没有2个月的限制。。也就是我的统计表要只收取时间合适的数据,然后在用这段代码统计是吧


 回到顶部
帅哥哟,离线,有人找我吗?
zhangtongrt
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
  发帖心情 Post By:2016/7/14 15:51:00 [显示全部帖子]

以下是引用大红袍在2016/7/14 15:35:00的发言:
 代码没,问,题。

我没有怀疑您的代码。。

我把表C的时间改成6月,也就是没到2个月的时间限制呢,也能显示出这两个人。

还有就是我在实例里实验:时间是从2016年6月20日开始,每五天一张表,我将2016-06-20至2016-07-15的所有数据都读取到“宣传员统计表”里,然后用下面代码来统计没有推销东西和“介绍人”的人员。显示出来的差距很大,只显示出来了2016年7月15日的没有新销售记录和“介绍人”的人员,其他的都没显示。

Dim t As Table = Tables("宣传员统计表")
Dim d As Date = Date.Today
Dim filter As String = "第一次收益时间 >= #" & d.AddMonths(-2) & "# and 第一次收益时间 < #" & d.AddDays(1) & "#"
t.filter = "人员姓名 not in ('" & t.DataTable.GetComboListString("人员姓名", filter).replace("|", "','") &  "','" & t.DataTable.GetComboListString("介绍人", filter).Replace("|", "','") & "')"


 回到顶部
帅哥哟,离线,有人找我吗?
zhangtongrt
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:116 积分:813 威望:0 精华:0 注册:2016/6/6 16:33:00
  发帖心情 Post By:2016/7/14 16:07:00 [显示全部帖子]

以下是引用大红袍在2016/7/14 15:57:00的发言:
 你统计表的数据肯定有问题。

只影响到3个列啊,这3个列没问题呀。“人员姓名”“第一次收益时间”“介绍人”。这3列没有做什么特别的设置啊。并且这些数据也是读取过来的哈

Dim nms() As String = {"宣16年6月20日","宣16年6月25日","宣16年6月30日","宣16年7月5日","宣16年7月10日","宣16年7月15日"}
For Each nm As String In nms
    Dim f As New  Filler
    f.SourceTable = DataTables(nm)
    f.SourceCols = "人员编号,人员姓名,第一次收益时间,介绍人"
    f.DataTable = DataTables("宣传员统计表")
    f.DataCols = "人员编号,人员姓名,,第一次收益时间,介绍人"
    f.Fill()
Next


 回到顶部
总数 15 1 2 下一页