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

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

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

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

我没有怀疑您的代码。。

我把表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("|", "','") & "')"

只影响到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