[求助]这个软件能做报警功能么？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3253人关注过本帖树形打印复制链接主题：[求助]这个软件能做报警功能么？

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/14 11:06:00 [显示全部帖子]

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

红色代码空格去掉

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/14 14:35:00 [显示全部帖子]

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

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

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/14 14:45:00 [显示全部帖子]

那就直接查那个汇总的表。不会做上传实例。

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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("|", "','") & "')"

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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("|", "','") & "')"

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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("|", "','") & "')"