1、没有更简单的代码
2、你要设置统计条件:
Dim jh As WinForm.ComboBox = e.Form.Controls("机号")
Dim gs As WinForm.ComboBox = e.Form.Controls("公司")
Dim jc As WinForm.TextBox = e.Form.Controls("机场")
Dim js As WinForm.DateTimePicker = e.Form.Controls("结束")
Dim ks As WinForm.DateTimePicker = e.Form.Controls("开始")
Dim g As New GroupTableBuilder("机型汇总", DataTables("dt1"))
g.Groups.AddDef("机号")
g.Totals.AddDef("空时")
g.Totals.AddDef("地面")
g.Totals.AddDef("总时间")
g.VerticalTotal = True
g.Filter = "机号 = '" & jh.Value & "'and 起飞日期 >= '" & ks.Value & "'and 起飞日期 <= '" & js.Value & "'"
g.Build()
3、如何在窗口显示统计结果,参考:
http://www.foxtable.com/help/topics/1909.htm
注意窗口中用于显示统计结果的Table控件不需要绑定到表。
4、不同的问题,最号分别发帖提问,不要一直跟在原帖后面