SQLGroupTableBuilder统计报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → SQLGroupTableBuilder统计报错

共有2789人关注过本帖树形打印复制链接主题：SQLGroupTableBuilder统计报错

一笑

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

SQLGroupTableBuilder统计报错 发帖心情

Post By：2015/10/29 13:39:00 [只看该作者]

用SQLGroupTableBuilder进行统计，代码如下：

Dim b As New SQLGroupTableBuilder("统计表1","事件汇总")

b.ConnectionName = "data"

Dim Filter As String

Filter = "飞行日期 >= #1/9/2015# And 飞行日期 <= #30/9/2015"#"

b.filter = filter

b.Groups.AddDef("事件名称") '分组

b.Totals.AddDef("次数")'对数量进行统计

b.Build '生成统计表

MainTable = Tables("统计表1")

1. 运行报错：“#附近错误”

2. 生成统计表1是希望加上序号列

求解，谢谢

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/29 13:55:00 [只看该作者]

sqlserver数据库就这样写，access就用#号

Filter = "飞行日期 >= '2015-09-01' And 飞行日期 < '2015-10-01'"

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/29 13:56:00 [只看该作者]

2、动态加入一列，然后循环每一行，给序号列赋值。

http://www.foxtable.com/help/topics/1428.htm

一笑

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

Post By：2015/10/29 14:11:00 [只看该作者]

日期测试无误，但如下合成表达式又该如何写，谢谢

Dim b As New SQLGroupTableBuilder("统计表1","事件汇总")

b.C

Dim dr1 As DataRow = DataTables("月事件率").find("选择 = True")'

Dim y As Integer = dr1("年")

Dim m As Integer = dr1("月")

Dim dt1 As New Date(y, m, 1)

Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天

Dim Filter As String

Filter = "飞行日期 >= " & dt1 &" And 飞行日期 <= " & dt2 & "'"

b.filter = filter

b.Groups.AddDef("事件名称") '分组

b.Totals.AddDef("次数")'对数量进行统计

b.Build '生成统计表

MainTable = Tables("统计表1")

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/29 14:14:00 [只看该作者]

Filter = "飞行日期 >= '" & dt1 &"' And 飞行日期 <= '" & dt2 & "'"

一笑

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

Post By：2015/10/30 15:21:00 [只看该作者]

动态增加1列后，新增列在最右侧，能否制定新增列在位置，比如在最左侧。

狐狸爸爸

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/10/30 15:29:00 [只看该作者]

增加后，移动：

http://www.foxtable.com/help/topics/0587.htm

一笑

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

Post By：2015/10/31 8:33:00 [只看该作者]

关于统计表“序号”列赋值：

方法1. 能否生成统计表后增加序号列，在表达式中用_Identify给序号列赋值？谢谢

Tables("统计表1").DataTable.DataCols.Add("序号", Gettype(Integer)，“[_Identify]”)

方法2. 以下代码报错，求解，谢谢！

b.Build '生成统计表

Tables("统计表1").DataTable.DataCols.Add("序号", Gettype(Integer))

Tables("统计表1").Cols("序号").Move(0)

Dim cnt As Integer = Tables("统计表1").Rows.Count

For Each r As Row In Tables("统计表1").rows

'r("序号") = r("_Identify")

For n As Integer = 0 To cnt - 1 '遍历所有行

r(n)("序号") = n + 1

[此贴子已经被作者于2015/10/31 8:51:40编辑过]

Hyphen

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/10/31 8:57:00 [只看该作者]

Tables("统计表1").DataTable.DataCols.Add("序号", Gettype(Integer))
Tables("统计表1").Cols("序号").Move(0)
Dim cnt As Integer = Tables("统计表1").Rows.Count

For n As Integer = 0 To cnt - 1 '遍历所有行
Tables("统计表1").Rows(n)("序号") = n + 1
Next

下一主题 >> << 上一主题

主题：SQLGroupTableBuilder统计报错