窗口代码改写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口代码改写

共有2421人关注过本帖树形打印复制链接主题：窗口代码改写

宁老师SQE

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：108 积分：824 威望：0 精华：0 注册：2018/11/23 15:18:00

窗口代码改写 发帖心情

Post By：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

其他的代码也是这样改写的为什么改改就出现错误说无法引用了

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/29 9:51:00 [只看该作者]

字数没有限制

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

代码的问题，自行调试看是哪一句代码有问题

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/29 9:52:00 [只看该作者]

很明显控件里没有"采购追踪"这些项目

主题：窗口代码改写