主题：统计结果，怎么会出现【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