窗口的table采用分页加载,这是希望能实现后台统计,代码如下,当不执行g.FromServer = True时,可以对当前页进行统计,当执行g.FromServer = True时却无任务数据,应该怎么改?Dim t As Table = e.Form.Controls("Table1").Table
Dim dt As DataTable = e.Form.Controls("Table1").Table.DataTable
Dim g As New GroupTableBuilder("统计表1", dt)
g.Groups.AddDef("日期","月")
g.Groups.AddDef("销售员")
g.Groups.AddDef("类别")
g.Groups.AddDef("样品")
g.Totals.AddDef("编号", AggregateEnum.Count, "数量")
g.SubTotal = True
'g.FromServer = True
Forms("统计窗口").open()
Dim tb As WinForm.Table = Forms("统计窗口").Controls("Table1")
tb.Table.DataSource = g.BuildDataSource