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

我有一个统计功能按钮，命令如下：

Dim g1 As New GroupTableBuilder("光缆纤芯利用率表", DataTables("光缆纤芯应用台帐表"))

g1.Groups.AddDef("光缆类别")

g1.Groups.AddDef("光缆对数")

g1.Totals.AddDef("纤芯编号", AggregateEnum.Count, "总纤芯数量")

g1.Filter = " 光缆名称 Is not null"

g1.Build()

DataTables("光缆纤芯利用率表").DataCols.Add("使用纤芯数量", Gettype(Integer))

DataTables("光缆纤芯利用率表").DataCols.Add("光缆数量", Gettype(Integer))

DataTables("光缆纤芯利用率表").DataCols.Add("纤芯利用率", Gettype(Double))

For Each r1 As Row In Tables("光缆纤芯利用率表").rows

r1("使用纤芯数量") = DataTables("光缆纤芯应用台帐表").Compute("count(_Identify)", " 光缆类别 = '" & r1("光缆类别") & "' and 光缆对数 = '" & r1("光缆对数") & "' and 业务名称 is not null")

r1("光缆数量") = DataTables("光缆纤芯应用台帐表").GetValues("光缆名称", "光缆类别 = '" & r1("光缆类别") & "' and 光缆对数 = '" & r1("光缆对数") & "' ").Count

r1("纤芯利用率") = r1("使用纤芯数量") / r1("总纤芯数量")

DataTables("光缆纤芯利用率表").DataCols("纤芯利用率").SetFormat("00.00%")

'MainTable = Tables("机房光缆纤芯利用率表")

Tables("光缆纤芯利用率表").SetColVisibleWidth("光缆类别|150|光缆对数|160|总纤芯数量|120|光缆数量|80|总纤芯数量|80|使用纤芯数量|80|纤芯利用率|80")

当我点击该按钮后，提示出错；请帮我看看问题出在哪里？

此主题相关图片如下：360截图20141002214007037.jpg

此主题相关图片如下：360截图20141002214038584.jpg

此主题相关图片如下：360截图20141002214049943.jpg

在第一个图中的 “光缆纤芯利用率表”中有"使用纤芯数量"这一列，同时也已经统计出数量啦。在 ‘统计’ 按钮中也有增加“使用纤芯数量”这个命令啊

DataTables("光缆纤芯利用率表").DataCols.Add("使用纤芯数量", Gettype(Integer))

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.foxdb

你这个命令和我按钮里写的好像一样啊、这次提示没有“光缆数量”列

[此贴子已经被作者于2014-10-8 10:40:44编辑过]

你点完统计、切换到其他表后、回来再点一次统计看看。是不是红色部分有什么问题？

r1("使用纤芯数量") = DataTables("光缆纤芯应用台帐表").Compute("count(_Identify)", " 光缆类别 = '" & r1("光缆类别") & "' and 光缆对数 = '" & r1("光缆对数") & "' and 业务名称 is not null")

r1("光缆数量") = DataTables("光缆纤芯应用台帐表").GetValues("光缆名称", "光缆类别 = '" & r1("光缆类别") & "' and 光缆对数 = '" & r1("光缆对数") & "' ").Count

在临时表上是否可以做筛选？我在我的项目中没看到临时表

如果我需要把统计表中的内容进行筛选或者导出统计数据，该怎么做？

请问：导出 Tables("光缆纤芯利用率统计主窗口_Table1") 表数据的命令怎么写？

主题：[求助] 统计按钮公式出错