Dim filter As String = "1=1"
Dim d1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
If d1.Value IsNot Nothing Then
filter = filter & " and 日期 >= #" & d1.Value &"#"
End If
d1 = e.Form.Controls("DateTimePicker2")
If d1.Value IsNot Nothing Then
filter = filter & " and 日期 <= #" & d1.Value &"#"
End If
Dim g As New GroupTableBuilder("统计表", DataTables("审批"))
g.Groups.AddDef("日期","月")
g.Groups.AddDef("起爆器材_类型")
g.Totals.AddDef("起爆器材_数量")
g.Totals.AddDef("炸药_数量")
g.Groups.AddDef("炸药_类型")
g.VerticalTotal = True
g.Filter = filter
g.Build()
MainTable = Tables("统计表")
With Tables("统计表")
.Cols("月").Move(0)
.Cols("炸药_类型").Move(1)
.Cols("炸药_数量").Move(2)
End With
这个是蓝老师给帮忙写的 一个统计窗口的代码 我现在想把这个功能放在菜单里用 老师给帮忙弄一下 就是这个图的意思
此主题相关图片如下：qq截图20180918100203.png
加好友 
发短信
Post By：2018/9/18 10:03:00 [显示全部帖子]
