Dim g As New CrossTableBuilder("统计表1", DataTables("AccountVouchersDetails"))
g.HGroups.AddDef("Account")
g.VGroups.AddDef("BillType")
g.Totals.AddDef("Money", "Money")
g.Decimals = 2
Dim y As Integer = 2017'指定年份 Dim dt1 As NewDate(y, 1, 1) Dim dt2 As NewDate(y, 12, 31) Dim Filter As String Filter = "日期 >= #"&dt1&"# And 日期 <= #"&dt2&"#"
加好友 
发短信
Post By：2017/10/28 15:53:00 [显示全部帖子]
