Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问TopicPage 中统计数量定时刷新


  共有3821人关注过本帖树形打印复制链接

主题：请问TopicPage 中统计数量定时刷新
帅哥哟，离线，有人找我吗？
laipiwen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：2882 威望：0 精华：0 注册：2015/4/29 11:50:00 		请问TopicPage 中统计数量定时刷新  发帖心情 Post By：2017/6/22 15:23: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 & ")" )

我想要定时刷新结果，请问 TimerTick 中代码该怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：2882 威望：0 精华：0 注册：2015/4/29 11:50:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：2882 威望：0 精华：0 注册：2015/4/29 11:50:00 		  发帖心情 Post By：2017/6/22 16:13:00 [只看该作者]

Dim tpb As WinForm.TopicBar
tpb = Forms("窗口1").Controls("TopicBar1")
tpb.Pages.Clear
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/22 16:23:00 [只看该作者]

2楼代码肯定没问题。
 回到顶部
帅哥哟，离线，有人找我吗？
laipiwen
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：2882 威望：0 精华：0 注册：2015/4/29 11:50:00 		  发帖心情 Post By：2017/6/28 15:52:00 [只看该作者]

以下是引用有点色在2017/6/22 16:23:00的发言：

2楼代码肯定没问题


版主您好，我这里发布程序后，发现部分电脑可以定时刷新，部分电脑不能定时刷新，请问这个TimerTick 的运行是和系统环境有关吗？
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2017/6/28 16:31:00 [只看该作者]

这个和系统无关，不刷新的电脑，是否单击按钮也没有反应，如果是的，可以联系客服核对一下激活码。

 回到顶部
帅哥哟，离线，有人找我吗？
laipiwen
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：2882 威望：0 精华：0 注册：2015/4/29 11:50:00 		  发帖心情 Post By：2017/6/28 16:38:00 [只看该作者]

是任意按钮吗？还是按钮上有对应刷新代码的按钮？ 其他窗口的按钮可以正常点击。

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/6/28 16:42:00 [只看该作者]

以下是引用laipiwen在2017/6/28 16:38:00的发言：
是任意按钮吗？还是按钮上有对应刷新代码的按钮？ 其他窗口的按钮可以正常点击。

 

任意按钮。

 

你说的不能刷新，指的是什么？显示的数据不是你当前打开的表的数据总计？你要确认你表的数据已经是最新的才行。
 回到顶部
帅哥哟，离线，有人找我吗？
laipiwen
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：382 积分：2882 威望：0 精华：0 注册：2015/4/29 11:50:00 		  发帖心情 Post By：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
按此在新窗口浏览图片
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询