Dim d1 As Date = e.form.Controls("DateTimePicker1").value
Dim g As New CrossTableBuilder("已收销售", DataTables("已审销售"))
g.HGroups.AddDef("客户全称")
g.VGroups.AddDef("会计年度")
g.Totals.AddDef("结算金额", "结算金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = "日期 >= d1"
g.FromServer = True
g.Build()
MainTable = Tables("已收销售")
'Tables("已审销售").Sort = "合计 DESC"
此主题相关图片如下:qq截图20200803140019.png
试过将g.Filter = "日期 >= d1" 改为 g.Filter >= #06/01/2019#"可以达到目的,试过很多次都不能,这个需要怎样改才好呢