Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))b.Groups.AddDef("日期","月份") b.Totals.AddDef("数量")Tables("窗口1_Table1").DataSource = b.BuildDataSource()
加最后一句即可
加好友 
发短信
Post By：2013/9/12 10:46:00 [显示全部帖子]
