[求助]如何代码实现统计符合条件的数量 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何代码实现统计符合条件的数量

共有3125人关注过本帖树形打印复制链接主题：[求助]如何代码实现统计符合条件的数量

boooxu

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

加好友

发短信

等级：幼狐帖子：134 积分：1313 威望：0 精华：0 注册：2012/10/31 14:21:00

[求助]如何代码实现统计符合条件的数量 发帖心情

Post By：2015/11/20 12:36:00 [只看该作者]

求助

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

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

此主题相关图片如下：1.jpg

大红袍

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

加好友

发短信

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

Post By：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

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

加好友

发短信

等级：幼狐帖子：134 积分：1313 威望：0 精华：0 注册：2012/10/31 14:21:00

Post By：2015/11/20 20:04:00 [只看该作者]

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

要是能送花就好了

我去测试去了

boooxu

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

加好友

发短信

等级：幼狐帖子：134 积分：1313 威望：0 精华：0 注册：2012/10/31 14:21:00

Post By：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中不会呀