此主题相关图片如下:360截图16480305819185.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-12/2018122015495864340.png)
我想统计报价阶段表中未立项的数目
Dim page As WinForm.TopicPage
page = Forms("导航栏").Controls("TopicBar1").pages("流程管理")
For Each pd As Integer In DataTables("报价阶段表").GetValues("是否立项")
Dim lnk As WinForm.TopicLink = page.Links.Add(pd ,pd)
Dim cnt As Byte = DataTables("报价阶段表").Compute("count([_identify])"," 是否立项 = False ")
lnk.Text = lnk.Text & "(" & cnt & ")"
Next