以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何只自动统计最后10行的数据？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15145)
--  作者：乌拉古城
--  发布时间：2011/12/14 10:04:00
--  如何只自动统计最后10行的数据？
请问一下，在不断增加行数据的情况下，如何只自动统计最后10行的数据
--  作者：狐狸爸爸
--  发布时间：2011/12/14 10:22:00
--  

统计订单表最后10行：

 

Dim dt As DataTable = DataTables("订单")
Dim idx As Integer = math.max(0,dt.DataRows.count - 10)
Dim g As New GroupTableBuilder("统计表1", dt)
g.Filter = "[_Identify] >= " & dt.DataRows(idx)("_identify")
g.Groups.AddDef("日期", "月")
g.Totals.AddDef("数量")
g.Build()
MainTable = Tables("统计表1")