以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口代码改写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129472)
--  作者：宁老师SQE
--  发布时间：2018/12/29 8:57:00
--  窗口代码改写
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
图片点击可在新窗口打开查看


其他的代码也是这样改写的  为什么改改就出现错误 说无法引用了
--  作者：有点蓝
--  发布时间：2018/12/29 9:51:00
--  
字数没有限制

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

代码的问题，自行调试看是哪一句代码有问题
--  作者：有点蓝
--  发布时间：2018/12/29 9:52:00
--  
很明显控件里没有"采购追踪"这些项目