统计结果，怎么会出现【0家】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计结果，怎么会出现【0家】

共有2285人关注过本帖树形打印复制链接主题：统计结果，怎么会出现【0家】

探狐

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：390 威望：0 精华：0 注册：2021/4/26 11:27:00

统计结果，怎么会出现【0家】 发帖心情

Post By：2021/5/18 15:23:00 [只看该作者]

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