Dim g As New CrossTableBuilder("统计表1", DataTables("ot_list"))
g.HGroups.AddDef("name")
g.VGroups.AddDef("ot_date", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("ot_time", "ot_time")
g.Filter = "[name] = '黎明'"
g.Build()
messagebox.show("OK") '此处可通过
Dim rd As WinForm.RecordGrid = e.Form.Controls("RecordGrid2")
rd.Table.DataSource = tables("统计表1")
rd.build()
可以了!
[此贴子已经被作者于2017/10/13 13:44:43编辑过]