| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 过期数提醒 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106177) |
| -- 作者：zhanghaitao8188 -- 发布时间：2017/9/4 9:10:00 -- 过期数提醒 专家好，想要一个代码，实现如下情形， 在任务提醒里显示，到期数，如：还有三个月过期的产品数，在提醒：快过期产品（2） |
| -- 作者：有点甜 -- 发布时间：2017/9/4 9:25:00 -- 1、http://www.foxtable.com/webhelp/scr/2471.htm
2、你想在右下角弹出窗口？ http://www.foxtable.com/webhelp/scr/3043.htm
|
| -- 作者：zhanghaitao8188 -- 发布时间：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 & ")" ) 老师帮看下这个代码有什么问题,为什么不能实现提醒呢
|
| -- 作者：有点蓝 -- 发布时间：2017/9/5 22:21:00 -- 代码没有问题 |
| -- 作者：zhanghaitao8188 -- 发布时间：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 & ")"
|
| -- 作者：有点甜 -- 发布时间：2017/9/6 11:08:00 -- 你现在的问题是什么？计算结果不对？
截图或实例说明。 |