交叉统计中日期列如何表示？ - 专家坐堂 - 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

这是已经写完的代码。

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

[此贴子已经被作者于2016/11/14 17:35:09编辑过]

那一列的值怎么取？还不如用代码自动实现交叉统计功能。

不会做上传实例测试。

我就是问这一列怎么取啊！我上面写的难道不是用代码做交叉统计吗？

问的是你增加的到账日期的值从哪里来。你自己做的业务都不清楚，别人就更不可能知道的

上传实例，说明执行后要的效果。

就是从数据表“应实收合计”提取数据，然后在窗口中统计，统计“本月租金应收”、“本月租金实收”、“到账日期”三列。谢谢~

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

这种只能统计后增加列了，参考5楼帮助

上传foxtable测试例子。

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