Tables("报表窗口_Table1").ExtendLastCol = True Dim bd1 As New GroupTableBuilder("统计表1",DataTables("零售明细")) Dim dt1 As fxDataSource bd1.Filter = "[日期] = '" & Date.Today.Month & "'" 这里的代码报错,原因我知道,但是我想要的就是当月数据 有什么办法能实现? bd1.Groups.AddDef("名称") '根据名称分组 bd1.Totals.AddDef("数量","零售_数量") '对数量进行统计 bd1.Totals.AddDef("实收金额","零售_金额") '对金额进行统计 dt1 = bd1.BuildDataSource()
|