呵呵，统计行数，不需要用Select，太重量级了，用Compute:
Dim a As Integer = Date.Today.YearDim n As integer = DataTables("表A").Compute(“Count([_Identify])”, "日期>= #1/1/" & a & "# and 日期 <= #12/31/" & a & "#")
加好友 
发短信
Post By：2013/3/13 9:15:00 [显示全部帖子]
