以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何代码实现统计符合条件的数量  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77553)
--  作者：boooxu
--  发布时间：2015/11/20 12:36:00
--  [求助]如何代码实现统计符合条件的数量

求助

我做的一个窗口，筛选近效期和己过期，筛选已经做好，

想做个提醒的数目，如何在后台统计出所有近效期的条目和己过期的条目的数量？


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/11/20 13:03:00
--  

类似

 

Dim dt As Date = Date.Today.AddDays(10)
Dim count As Integer = DataTables("库存表").compute("count(有效期至)","有效期至 >= #" & date.today & "# and 有效期至 <= #" & dt & "#")
msgbox(count)
--  作者：boooxu
--  发布时间：2015/11/20 20:04:00
--  

红袍老师，总是你来指导我，谢谢呀

要是能送花就好了

 

 

我去测试去了
--  作者：boooxu
--  发布时间：2015/11/20 20:33:00
--  

红袍老师，我需的是在近效期和己过期后面的textbox1 textbox2 中直接显示符合条件的数目，

是否应该在窗口事件afterload中设置？如果日期发生变化需要检查在哪个事件中实现？

 

Dim dt As Date = Date.Today.AddDays(-30)
Dim count As Integer = DataTables("文件目录").compute("count(有效期至)","有效期至 >= #" & dt & "# and 有效期至 <= #" & Date.today & "#")
msgbox(count)

 

我修改了上述代码和我表内容相关，但怎么把数值显示到textbox中不会呀

 
--  作者：boooxu
--  发布时间：2015/11/20 20:46:00
--  
以下是引用大红袍在2015/11/20 13:03:00的发言：

类似

 

Dim dt As Date = Date.Today.AddDays(10)
Dim count As Integer = DataTables("库存表").compute("count(有效期至)","有效期至 >= #" & date.today & "# and 有效期至 <= #" & dt & "#")
msgbox(count)

 

 

红袍老师，有空帮指导下呀
--  作者：Hyphen
--  发布时间：2015/11/21 8:44:00
--  
Forms("窗口1").Controls("TextBox1").Text =  某值
--  作者：boooxu
--  发布时间：2015/11/21 18:51:00
--  
谢谢楼上的兄弟，实现了