主题：[求助]如何代码实现统计符合条件的数量

求助

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

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

类似

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

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

要是能送花就好了

我去测试去了

红袍老师，我需的是在近效期和己过期后面的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中不会呀