主题：统计本年度的行数量

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

也就是说统计筛选出来的行的行数就行了

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

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

Tables("xxx").Filter = "日期 >=#" d1 & "# And 日期<= #" & d2 & "#"

师兄，这上面好像不行

muhua 师傅，这个能不能后台计算的？比如我在窗体中加入一个标签控件，让表不执行筛选变化，标签控件的值就等于上面所输出的值？

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

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 )

呵呵，统计行数，不需要用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 & "#")