我有一个统计功能按钮，命令如下：
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("总纤芯数量")
Next
DataTables("光缆纤芯利用率表").DataCols("纤芯利用率").SetFormat("00.00%")
'MainTable = Tables("机房光缆纤芯利用率表")
Tables("光缆纤芯利用率表").SetColVisibleWidth("光缆类别|150|光缆对数|160|总纤芯数量|120|光缆数量|80|总纤芯数量|80|使用纤芯数量|80|纤芯利用率|80")
当我点击该按钮后，提示出错；请帮我看看问题出在哪里？
加好友 
发短信
Post By：2014/10/2 21:42:00 [只看该作者]
此主题相关图片如下：360截图20141002214007037.jpg
