Dim qsrq As Date
Dim jsrq As Date
Dim qsn As WinForm.ComboBox = e.Form.Controls("qsnComboBox")
Dim qsy As WinForm.ComboBox = e.Form.Controls("qsyComboBox")
Dim jsn As WinForm.ComboBox = e.Form.Controls("jsnComboBox")
Dim jsy As WinForm.ComboBox = e.Form.Controls("jsyComboBox")
Dim t As Table
If qsn.Value IsNot Nothing Then
qsrq = Format(new Date(qsn.Value,qsy.Value ,01),"yyyy-MM-dd")
jsrq= Format(new Date(jsn.Value,jsy.Value , Date.DaysInMonth(jsn.Value, jsy.Value )),"yyyy-MM-dd")
Dim g As New GroupTableBuilder("统计表2", DataTables("收支交易流水"))
g.Groups.AddDef("记账日期",DateGroupEnum.Year, "年份")
g.Groups.AddDef("记账日期", "月份")
g.Totals.AddDef("收入金额")
g.Filter = "[记账日期] >= #" & qsrq & "# And [记账日期] <= #" & jsrq & "# And [交易类型] = '收入'"
g.SubTotal = True
g.Build()''
MainTable = Tables("统计表2")'
Tables("收入统计图表窗体_tjTable").DataSource = DataTables("统计表2")
Tables("收入统计图表窗体_tjTable").SetColVisibleWidth("月份|50|收入金额|100")
For Each c As Col In Tables("收入统计图表窗体_tjTable").Cols
c.TextAlign = TextAlignEnum.Center
Next
DataTables("统计表2").GlobalHandler.BeforeShowContextMenu=True
DataTables("统计表2").GlobalHandler.PrepareEdit=True
t = Tables("收入统计图表窗体_tjTable")
t.Cols("年份").GrandTotal = True '指定要合计的列
t.Cols("月份").GrandTotal = True '指定要合计的列
t.Cols("收入金额").GrandTotal = True
t.Sort = "年份,月份" '指定排序字段
' t.Sort = "月份" '指定排序字段
t.GrandTotal = True '显示合计模式
t.Grid.Name = t.Name
AddHandler t.grid.Paint, AddressOf Grid_Paint
Tables("统计表2").ExtendLastCol = True
加好友 
发短信
Post By：2020/3/3 11:20:00 [只看该作者]
此主题相关图片如下：截图10.jpg
