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

Dim g As New GroupTableBuilder("统计表1", DataTables("机房板件端口表"))
g.Groups.AddDef("机房名称")
g.Groups.AddDef("设备名称")
g.Groups.AddDef("设备型号")
g.Groups.AddDef("板件型号")
g.Groups.AddDef("设备型号")
g.Groups.AddDef("端口类型")
g.Totals.AddDef("端口编号", AggregateEnum.Count, "总端口数量")
g.Filter = "机房名称 Is not null"
g.Build()

DataTables("统计表1").DataCols.Add("使用端口数量", Gettype(Integer))
DataTables("统计表1").DataCols.Add("端口利用率", Gettype(Double))
For Each r As Row In Tables("统计表1").rows
    r("使用端口数量") = DataTables("机房板件端口表").Compute("count(_Identify)", "机房名称 = '" & r("机房名称") & "' and 设备名称 = '" & r("设备名称") & "' and 设备型号 = '" & r("设备型号") & "' and 板件型号 = '" & r("板件型号") & "' and 端口类型 = '" & r("端口类型") & "' and 端口应用 is not null")
    r("端口利用率") = r("使用端口数量") / r("总端口数量")
Next
DataTables("统计表1").DataCols("端口利用率").SetFormat("00.00%")

MainTable = Tables("统计表1")