专家坐堂-为什么仿写都会错误呢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：360截图16460524476885.png

Dim page As WinForm.TopicPage

Dim nms() As String = {"客户名称" ,"报价_供应商" , "项目经理"}

For Each nm As String In nms

page = Forms("导航栏").Controls("TopicBar1").pages(nm)

For Each pd As String In DataTables("报价阶段表").GetValues(nm)

Dim lnk As WinForm.TopicLink = page.Links.Add(pd ,pd)

Dim cnt As Integer = DataTables("报价阶段表").Compute("count([_identify])", nm & "=\'" & pd & "\'")

lnk.Text = lnk.Text & "(" & cnt & ")"