以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计结果，怎么会出现【0家】  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=166099)
--  作者：探狐
--  发布时间：2021/5/18 15:23:00
--  统计结果，怎么会出现【0家】

Dim tb As WinForm.TopicBar = e.Form.Controls("TopicBar1")

Dim g As New GroupTableBuilder("统计表1", DataTables("供货商联系表"))
g.Groups.AddDef("供应商类别")
g.Totals.AddDef("供应商类别", AggregateEnum.Count,"数量")
Dim dt As DataTable = g.Build(True)

Dim tp As WinForm.TopicPage = tb.Pages.Add("入库供应商","入库供应商" )  \'(" & dt.Compute("sum(数量)") & ")")
For Each dr As DataRow In dt.DataRows
    Dim lnk As WinForm.TopicLink = tp.Links.Add(dr("供应商类别"),dr("供应商类别") & dr("数量") & "家")
   Next


图片点击可在新窗口打开查看此主题相关图片如下：图片1.png
图片点击可在新窗口打开查看
--  作者：y2287958
--  发布时间：2021/5/18 16:24:00
--  
如果数据是0就返回0呗
--  作者：有点蓝
--  发布时间：2021/5/18 16:37:00
--  
表格有空行，或者供应商类别列里有空值

Dim g As New GroupTableBuilder("统计表1", DataTables("供货商联系表"))
g.Groups.AddDef("供应商类别")
g.Totals.AddDef("供应商类别", AggregateEnum.Count,"数量")
g.filter = "供应商类别 is not null"
[此贴子已经被作者于2021/5/18 16:38:10编辑过]