- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导航栏统计合同到期数量 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83576)
-- 发布时间：2016/4/12 17:57:00
-- [求助]导航栏统计合同到期数量
此主题相关图片如下：导航统计到期.png
此主题相关图片如下：合同计费周期.png
如何实现导航栏统计合同到期数量，求编辑好的代码，谢谢！
-- 发布时间：2016/4/12 18:00:00
--
Dim dt As Date = Date.Today
Dim count As Integer = DataTables("表A").Compute("count(到期日期)", "到期日期 >= #" & dt & "# And 到期日期 <= #" & dt.AddDays(20) & "#")
msgbox(count)
[此贴子已经被作者于2016/4/12 18:00:52编辑过]
-- 发布时间：2016/4/12 18:52:00
--
此主题相关图片如下：统计.png
是要在这个导航窗口中显示统计到期的数量
-- 发布时间：2016/4/12 19:35:00
--
Dim dt As Date = Date.Today
Dim count As Integer = DataTables("表A").Compute("count(到期日期)", "到期日期 >= #" & dt & "# And 到期日期 <= #" & dt.AddDays(20) & "#")
Forms("窗口1").Controls("TopicBar1").Pages("项目").Links("打开").Text = "20天内到期(" & count & ")"