以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问TopicPage 中统计数量定时刷新  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102584)
--  作者：laipiwen
--  发布时间：2017/6/22 15:23:00
--  请问TopicPage 中统计数量定时刷新
窗口加载的代码

Dim Page As WinForm.TopicPage

Dim rw1 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = \'进行中\'")
Dim rw2 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = \'已完成\'")
Page = e.Form.Controls("TopicBar1").Pages.Add("项目任务","项目任务")
Page.Links.Add("进行中任务","进行中任务(" & rw1 & ")" )
Page.Links.Add("已完成任务","已完成任务(" & rw2 & ")" )

我想要定时刷新结果，请问 TimerTick 中代码该怎么写？
--  作者：有点色
--  发布时间：2017/6/22 15:46:00
--  
Dim Page As WinForm.TopicPage
Dim rw1 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = \'进行中\'")
Dim rw2 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = \'已完成\'")
Page = e.Form.Controls("TopicBar1").Pages("项目任务")
Page.Links("进行中任务").Text = "进行中任务(" & rw1 & ")"
Page.Links("已完成任务").Text = "已完成任务(" & rw2 & ")"
[此贴子已经被作者于2017/6/22 16:24:10编辑过]
--  作者：laipiwen
--  发布时间：2017/6/22 15:51:00
--  
以下是引用有点色在2017/6/22 15:46:00的发言：
Dim Page As WinForm.TopicPage
Dim rw1 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = \'进行中\'")
Dim rw2 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = \'已完成\'")
Page = e.Form.Controls("TopicBar1").Pages("项目任务")
Page.Links("进行中任务").Text = "进行中任务(" & rw1 & ")"
Page.Links("已完成任务").Text = "已完成任务(" & rw2 & ")"

谢谢解答，这样的话TopicPage 不断的增加，变得很长
--  作者：laipiwen
--  发布时间：2017/6/22 16:13:00
--  

Dim tpb As WinForm.TopicBar
tpb = Forms("窗口1").Controls("TopicBar1")
tpb.Pages.Clear
--  作者：有点色
--  发布时间：2017/6/22 16:23:00
--  

2楼代码肯定没问题。
--  作者：laipiwen
--  发布时间：2017/6/28 15:52:00
--  
以下是引用有点色在2017/6/22 16:23:00的发言：

2楼代码肯定没问题


版主您好，我这里发布程序后，发现部分电脑可以定时刷新，部分电脑不能定时刷新，请问这个TimerTick 的运行是和系统环境有关吗？
--  作者：狐狸爸爸
--  发布时间：2017/6/28 16:31:00
--  
这个和系统无关，不刷新的电脑，是否单击按钮也没有反应，如果是的，可以联系客服核对一下激活码。
--  作者：laipiwen
--  发布时间：2017/6/28 16:38:00
--  
是任意按钮吗？还是按钮上有对应刷新代码的按钮？ 其他窗口的按钮可以正常点击。
--  作者：有点色
--  发布时间：2017/6/28 16:42:00
--  
以下是引用laipiwen在2017/6/28 16:38:00的发言：
是任意按钮吗？还是按钮上有对应刷新代码的按钮？ 其他窗口的按钮可以正常点击。

 

任意按钮。

 

你说的不能刷新，指的是什么？显示的数据不是你当前打开的表的数据总计？你要确认你表的数据已经是最新的才行。
--  作者：laipiwen
--  发布时间：2017/6/28 16:46:00
--  
以下是引用有点色在2017/6/28 16:42:00的发言：

 

任意按钮。

 

你说的不能刷新，指的是什么？显示的数据不是你当前打开的表的数据总计？你要确认你表的数据已经是最新的才行。



任意按钮可用

不能刷新统计结果

Dim Page As WinForm.TopicPage

Dim rw1 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = \'进行中\'")
Dim rw2 As Integer = DataTables("任务").Compute("Count(任务编号)","完成状态 = \'已完成\'")
Page = e.Form.Controls("TopicBar1").Pages.Add("项目任务","项目任务")
Page.Links.Add("进行中任务","进行中任务(" & rw1 & ")" )
Page.Links.Add("已完成任务","已完成任务(" & rw2 & ")" )


此主题相关图片如下：微信图片_20170628164452.png
按此在新窗口浏览图片