交叉统计中日期列如何表示？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：微信截图_20161114172501.png

交叉统计中日期列如何表示？

Dim sd As WinForm.DateTimePicker

Dim ed As WinForm.DateTimePicker

sd = e.Form.Controls("StartDate")

ed = e.Form.Controls("EndDate")

If sd.Value Is Nothing OrElse ed.Value Is Nothing Then

MessageBox.Show("请输入起始日期和终止日期!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)

Else

Dim b As New CrossTableBuilder("统计表1",DataTables("应实收记录"))

Dim dt1 As fxDataSource

b.Filter = "[月首日] >= '" & sd.Value & "' And [月首日] <= '" & ed.Value & "'"

b.HGroups.AddDef("合同号") '添加合同号列用于水平分组

b.HGroups.AddDef("收租方式") '添加收租方式列用于水平分组

b.VGroups.AddDef("月首日",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组

b.VGroups.AddDef("月首日","{0}月") '添加日期列用于垂直分组,按月分组

b.Totals.AddDef("本月租金","本月租金应收") '添加数量列用于统计

b.Totals.AddDef("本月租金实收") '添加数量列用于统计

b.HorizontalTotal = True '水平汇总

b.VerticalTotal = True

b.Build

Forms("年租金统计").Controls("Table1").Table.DataSource = b.BuildDataSource()

dt1 = b.BuildDataSource()

End If

这是已经写完的代码。

主题：交叉统计中日期列如何表示？