以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  在不关闭窗口的前提下,如何刷新窗口的aferload事件?谢谢  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=113415)

--  作者:guosheng
--  发布时间:2018/1/15 17:11:00
--  在不关闭窗口的前提下,如何刷新窗口的aferload事件?谢谢

通过topicbar建立导航,在窗口的afterload中加入带统计功能的代码。

但是数据更改后,统计的数据不会自己刷新,除非重新登录系统。

如果通过关闭导航窗口,再打开导航窗口,可以实现刷新统计结果的功能,但是此时窗口关闭和打开会影响操作效果。谢谢。

 

 


--  作者:有点甜
--  发布时间:2018/1/15 17:16:00
--  

timertick事件 http://www.foxtable.com/webhelp/scr/1301.htm

 

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 & ")"

--  作者:guosheng
--  发布时间:2018/1/15 17:20:00
--  
谢谢