过期数提醒 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 过期数提醒

共有2028人关注过本帖树形打印复制链接主题：过期数提醒

zhanghaitao8188

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

等级：婴狐帖子：5 积分：108 威望：0 精华：0 注册：2017/9/2 17:09:00

过期数提醒

Post By：2017/9/4 9:10:00 [显示全部帖子]

专家好，想要一个代码，实现如下情形，在任务提醒里显示，到期数，如：还有三个月过期的产品数，在提醒：快过期产品（2）

zhanghaitao8188

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

等级：婴狐帖子：5 积分：108 威望：0 精华：0 注册：2017/9/2 17:09:00

Post By：2017/9/5 22:18:00 [显示全部帖子]

Dim Page As WinForm.TopicPage

Dim cnt1 As Integer = DataTables("表证书").Compute("Count(证书截止日期)","证书截止日期 < #" & Date.Today.AddMonths(3) & "#")

Page = e.Form.Controls("TopicBar1").Pages.Add("证书","证书")

Page.Links.Add("到期换证","到期换证(" & cnt1 & ")" )

老师帮看下这个代码有什么问题,为什么不能实现提醒呢

zhanghaitao8188

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

等级：婴狐帖子：5 积分：108 威望：0 精华：0 注册：2017/9/2 17:09:00

Post By：2017/9/6 11:02:00 [显示全部帖子]

Dim cnt1 As Integer = DataTables("表A").Compute("Count(第一列)","第一列 < #" & Date.Today.AddMonths(3) & "#")

Dim cnt2 As Integer = DataTables("表A").Compute("Count(第二列)","第二列 < #" & Date.Today.AddMonths(3) & "#")

e.Form.Controls("TopicBar1").Pages("页面1").links("任务1").Text = "任务1(" & cnt1 & ")"

e.Form.Controls("TopicBar1").Pages("页面1").links("任务2").Text = "任务2(" & cnt2 & ")"

主题：过期数提醒