Dim d As Date = Date.Today Dim b As New GroupTableBuilder("窗口1_table1",DataTables("表1")) b.Groups.AddDef("大区") '根据产品分组 b.Totals.AddDef("金额") b.Totals.AddDef("押金") b.Totals.AddDef("建筑面积") '对数量进行统计 b.GrandProportion = True b.filter = "结束日期 >= #" & d & "# or 结束日期 is null " Tables("窗口1_table1").DataSource = b.BuildDataSource()
加好友 
发短信
Post By：2018/2/23 10:22:00 [显示全部帖子]
