Foxtable(狐表)用户栏目专家坐堂 → 关于SQLGroupTableBuilder统计条件的设置


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

主题:关于SQLGroupTableBuilder统计条件的设置

帅哥哟,离线,有人找我吗?
mr725
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
关于SQLGroupTableBuilder统计条件的设置  发帖心情 Post By:2009/9/6 23:34:00 [只看该作者]


Dim
b As New GroupTableBuilder("统计表1", DataTables("订单"), "产品 = 'PD01'"'这里可以设置条件。
Dim b As New SQLGroupTableBuilder("统计表1","订单")

请问,第二个用 SQLGroupTableBuilder 生成的统计表,要统计 "产品 = 'PD01'"   如何设置条件?
[此贴子已经被作者于2009-9-6 23:34:53编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/9/7 8:09:00 [只看该作者]

SQLGroupTableBuilder包括以下属性:

ConnectionName:  指定数据源名称,如果省略,表示使用内部数据表。
Caption:         字符型,指定新生成统计表的标题。
Groups:           集合,用于添加分组列
Totals:           集合,用于添加统计列。
Exprs:           集合,用于添加表达式统计列。
VerticalTotal:   逻辑型,设为True,垂直方向自动增加汇总行。
Decimals:        整数型,用于设置统计结果要保留的小数位数,默认为4位。
SamePeriodGrowth:逻辑型,是否生成同比增长率
CircleGrowth:    逻辑型,是否生成环比增长率
GrandProportion: 逻辑型,是否生成总占比
GroupProportion: 逻辑型,是否生成分组占比

TableVisible:    逻辑型,是否在主界面中显示结果
Filter:           字符型,设置统计条件,表达式中的列名必须用方括号括起来


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2009/9/7 10:17:00 [只看该作者]

用狐表自带的例子:Excel报表.table 测试出错?

图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/9/7 10:20:00 [只看该作者]

可能是引号的问题

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/9/7 10:22:00 [只看该作者]

收藏,我抽空看看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47477 积分:251256 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/9/7 16:30:00 [只看该作者]

测试通过:


Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b.Groups.AddDef("日期",DateGroupEnum.Year,"年") '添加日期列用于分组,并用"年"代替原名称
b.Groups.AddDef("日期","月") '添加日期列用于分组,并用"月"代替原名称
b.Totals.AddDef("数量") '添加数量列用于统计
b.Totals.AddDef("金额") '添加数量列用于统计
b.Filter = "产品 = 'PD01'"
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表


 回到顶部
帅哥哟,离线,有人找我吗?
133198609
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:373 积分:3107 威望:0 精华:0 注册:2015/1/30 9:47:00
  发帖心情 Post By:2017/2/6 0:08:00 [只看该作者]

在设置后台统计的时候,貌似这样就不行,如何解?
Dim nf As WinForm.TextBox = e.Form.Controls("TextBox1")
If nf.Value = "" OrElse nf.Value.Length <> 4 Then
    MessageBox.Show("请输入正确的统计年份!")
Else
    Dim g As New GroupTableBuilder("上年度统计", DataTables("订单明细"))
    g.Groups.AddDef("部门")
    g.Groups.AddDef("业务员")
    g.Groups.AddDef("产品类别")
    g.Groups.AddDef("产品名称")
    g.Totals.AddDef("数量")
    g.FromServer = True
    g.Filter = "[签约年份] = '" & nf.Value & "'"
    g.Build()
    MainTable = Tables("上年度统计")
End If

 回到顶部