以文本方式查看主题

-  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=29744)
--  作者：cks
--  发布时间：2013/3/12 19:41:00
--  统计本年度的行数量

有日期列，现想以本年度为条件，筛选出的行进行统计

 

也就是说统计筛选出来的行的行数就行了
--  作者：有点甜
--  发布时间：2013/3/12 23:31:00
--  

Dim d1 As New Date(Date.Today,1,1)

Dim d2 As New Date(Date.Today,12,31)

Tables("xxx").Filter = "日期 >=#" d1 & "# And 日期<= #" & d2 & "#"
--  作者：cks
--  发布时间：2013/3/13 7:57:00
--  

师兄，这上面好像不行
--  作者：cks
--  发布时间：2013/3/13 8:24:00
--  
有没有师兄帮我处理这个问题呢？
--  作者：cks
--  发布时间：2013/3/13 8:52:00
--  

muhua 师傅，这个能不能后台计算的？比如我在窗体中加入一个标签控件，让表不执行筛选变化，标签控件的值就等于上面所输出的值？
--  作者：cks
--  发布时间：2013/3/13 8:58:00
--  

解决了，多谢师傅、师兄们，代码为：

 

Dim a As Integer = Date.Today.Year
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("日期>= #1/1/" & a & "#  and 日期 <= #12/31/" & a & "#")
Output.Show(drs.Count )
--  作者：狐狸爸爸
--  发布时间：2013/3/13 9:15:00
--  

呵呵，统计行数，不需要用Select，太重量级了，用Compute:

 

Dim a As Integer = Date.Today.Year
Dim n As integer = DataTables("表A").Compute(“Count([_Identify])”, "日期>= #1/1/" & a & "#  and 日期 <= #12/31/" & a & "#")