Foxtable(狐表)用户栏目专家坐堂 → 求根据参数生成表的代码


  共有12426人关注过本帖树形打印复制链接

主题:求根据参数生成表的代码

帅哥哟,离线,有人找我吗?
唐尸三摆手
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:928 积分:7769 威望:0 精华:13 注册:2008/9/1 11:58:00
  发帖心情 Post By:2010/5/21 10:24:00 [只看该作者]

老大您帮我出个思路好不好,我想做交叉分析表如1楼的样式,根据给定的两个日期生成,,然后数据由后台填充,最后将周六周日用颜色标记,这个表是在窗口中的表

 

哪个方式最简洁,老大能告诉我吗


 回到顶部
帅哥,在线噢!
狐狸爸爸
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/5/21 10:40:00 [只看该作者]

打开示例文件"统计演示.Table",执行下面的代码:

 

Dim b As New SQLCrossTableBuilder("统计表1","订单")
b.HGroups.AddDef("产品") '添加日期列用于垂直分组,按年分组
b.HGroups.AddDef("客户") '添加产品列用于垂直分组
b.VGroups.AddDef("日期",DateGroupEnum.None,"{0}") '添加客户列用于水平分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.HorizontalTotal = True
b.Build '生成统计表
For Each dc As DataCol In DataTables("统计表1").DataCols
   Dim v As Date
   If Date.TryParse(dc.Caption,v) Then
        dc.Caption = Format(v,"yyyy-MM-dd")
   End If
Next
DataTables("统计表1").BuildHeader
Maintable = Tables("统计表1") '打开生成的统计表

 

你可以修改上面的代码,设置统计条件,只统计指定日期之间的数据

[此贴子已经被作者于2010-5-21 10:41:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
唐尸三摆手
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:928 积分:7769 威望:0 精华:13 注册:2008/9/1 11:58:00
  发帖心情 Post By:2010/5/21 13:42:00 [只看该作者]

老大,这个我能懂,但是我有个疑问,示例文件"统计演示.Table"中的“订单表”,因为没有1999年1月5日和6日的数据,所以统计表中没有出现此列数据,我要求的是即使没有这天的数据,也要统计显示出来


 回到顶部
帅哥,在线噢!
狐狸爸爸
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/5/21 15:25:00 [只看该作者]

没有别的办法,你逐个日期判断,如果统计表没有标题等于这个日期的列,就用代码加入该列。

 


 回到顶部
总数 14 上一页 1 2