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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 未定义函数的问题

共有4366人关注过本帖树形打印复制链接主题：未定义函数的问题

yuyijun2

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

加好友

发短信

等级：幼狐帖子：138 积分：1103 威望：0 精华：0 注册：2013/7/5 11:29:00

未定义函数的问题 发帖心情

Post By：2013/8/22 22:06:00 [只看该作者]

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("行政案件"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("办案部门") '根据办案部门分组
bd1.Totals.AddDef("案件数","查办案件总数") '对数量进行统计
bd1.Totals.AddDef("行政罚款","行政罚款") '对金额进行统计
dt1 = bd1.BuildDataSource()

Tables("统计_Table1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("统计_Table1").DataCols '用表达式列计算库存数据
.Add("滥伐案",Gettype(Integer), " DataTables('行政案件').Compute('Sum(案件数)','[办案部门] = '' & dr('办案部门') & ''')")

End With

这段代码提示下面的问题，我是要怎么改正？

此主题相关图片如下：截图20130822220207.png

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/22 22:14:00 [只看该作者]

亲，不能这样统计的，好吧？

With DataTables("统计_Table1").DataCols '用表达式列计算库存数据
.Add("滥伐案",Gettype(Integer), " DataTables('行政案件').Compute('Sum(案件数)','[办案部门] = '' & dr('办案部门') & ''')")

你需要循环每一行，然后根据每一行的数据来统计的。

yuyijun2

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

加好友

发短信

等级：幼狐帖子：138 积分：1103 威望：0 精华：0 注册：2013/7/5 11:29:00

Post By：2013/8/22 22:19:00 [只看该作者]

要怎么编写呀

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/22 22:28:00 [只看该作者]

具体你根据实际情况修改一下，不然你就上传一个例子

With DataTables("统计_Table1").DataCols '用表达式列计算库存数据
.Add("滥伐案",Gettype(Integer))

End With

For Each r As Row In Tables("统计_Table1").Rows

r("滥伐案") = DataTables('行政案件').Compute("Sum(案件数)", "[办案部门] = ''' & r('办案部门') & ''')"

yuyijun2

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

加好友

发短信

等级：幼狐帖子：138 积分：1103 威望：0 精华：0 注册：2013/7/5 11:29:00

Post By：2013/8/22 22:48:00 [只看该作者]

谢谢“有点甜”，是好甜

yuyijun2

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

加好友

发短信

等级：幼狐帖子：138 积分：1103 威望：0 精华：0 注册：2013/7/5 11:29:00

Post By：2013/8/23 1:16:00 [只看该作者]

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("行政案件"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("办案部门") '根据办案部门分组

bd1.Totals.AddDef("行政罚款","行政罚款") '对金额进行统计
dt1 = bd1.BuildDataSource()

Tables("统计_Table1").DataSource = dt1 '将统计结果绑定到Table

With DataTables("统计_Table1").DataCols '用表达式列计算库存数据
.Add("投诉案",Gettype(Integer))
.Add("查办案件总数",Gettype(Integer))
End With

For Each dr As Row In Tables("统计_Table1").Rows
dr("查办案件总数")= DataTables("行政案件").Compute("Count(办案部门)", "[办案部门] = '" & dr("办案部门") & "'" )
dr("投诉案") = DataTables("行政案件").Compute("Count(办案部门)", "[案件来源]='投诉'" )
Next

上面的红色代码如何再加入统计条件？例如在加入橙色部分的条件

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/23 20:42:00 [只看该作者]

以下是引用yuyijun2在2013-8-23 1:16:00的发言：

上面的红色代码如何再加入统计条件？例如在加入橙色部分的条件

参考

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

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

主题：未定义函数的问题