Sele cted Index Changed
Dim g As New GroupTableBuilder("统计表1", DataTables("accountmx"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("账目名称")
g.Totals.AddDef("收入")
g.Totals.AddDef("支出")
g.SubTotal = True
g.FromServer = True
g.Filter = "[日期] >= '1/1/" & e.sender.value & "' And [日期] <= '12/31/" & e.sender.value & "'"
g.Build()
Tables ("统计账目_统计表1" ). DataSource = g.BuildDataSource
Enter
If DataTables.Contains("统计表1") Then
If DataTables("统计表1").DataCols.Contains("年") Then
e.sender.combolist = DataTables("统计表1").GetComboListString("年")
End If
End If
加好友 
发短信
Post By：2022/5/28 17:48:00 [只看该作者]
