- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 交叉统计中日期列如何表示？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92838)
-- 发布时间：2016/11/14 17:33:00
-- 交叉统计中日期列如何表示？
此主题相关图片如下：微信截图_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
这是已经写完的代码。
-- 发布时间：2016/11/14 17:34:00
--
此主题相关图片如下：微信截图_20161114173444.png
[此贴子已经被作者于2016/11/14 17:35:09编辑过]
-- 发布时间：2016/11/14 17:41:00
--
那一列的值怎么取？还不如用代码自动实现交叉统计功能。
http://www.foxtable.com/webhelp/scr/2394.htm
不会做上传实例测试。
-- 发布时间：2016/11/15 9:17:00
--
我就是问这一列怎么取啊！我上面写的难道不是用代码做交叉统计吗？
-- 发布时间：2016/11/15 9:39:00
--
问的是你增加的到账日期的值从哪里来。你自己做的业务都不清楚，别人就更不可能知道的
-- 发布时间：2016/11/15 9:49:00
--
上传实例，说明执行后要的效果。
-- 发布时间：2016/11/15 13:39:00
--
就是从数据表“应实收合计”提取数据，然后在窗口中统计，统计“本月租金应收”、“本月租金实收”、“到账日期”三列。谢谢~
此主题相关图片如下：微信截图_20161115133701.png
-- 发布时间：2016/11/15 14:28:00
--
这种只能统计后增加列了，参考5楼帮助
-- 发布时间：2016/11/15 18:08:00
--
上传foxtable测试例子。