Dim pageq As WinForm.TopicPage
pageq = Forms("导航栏").Controls("TopicBar4").pages("采购追踪")
Dim lnkq As WinForm.TopicLink = pageq.Links("未到货")
Dim cntq As Byte = DataTables("产品支持采购表").Compute("count([_identify])"," 联系采购 = True And 到货是否 = False ")
lnkq.Text = lnkq.Text & "(" & cntq & ")"
Dim pagez As WinForm.TopicPage
pagez = Forms("导航栏").Controls("TopicBar5").pages("项目追踪")
Dim lnkz As WinForm.TopicLink = pagez.Links("项目未发送")
Dim cntz As Byte = DataTables("临时项目").Compute("count([_identify])"," 项目发送 = False ")
lnkz.Text = lnkz.Text & "(" & cntz & ")"
此主题相关图片如下：360截图165504224966107.png
其他的代码也是这样改写的 为什么改改就出现错误 说无法引用了
加好友 
发短信
Post By：2018/12/29 8:57:00 [只看该作者]
