主题：实现窗口的数据统计

Dim Page As WinForm.TopicPage
Page = Forms("主窗口").Controls("TopicBar1").Pages("询价管理")
For Each pd As String In DataTables("询价表").GetValues("传递报价", [传递报价] = False )
    Dim lnk As WinForm.TopicLink = Page.Links.add(pd, pd)
    Dim cnt As Integer = DataTables("询价表").Compute("count（[_identify]）", "询价管理='" & pd & "'" )
    lnk.Text = lnk.Text & "(" & cnt & ")"
Next

 

 

我在Getvalues 中不声明“传递报价”了吗

此主题相关图片如下：631.png