以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导航窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60472)
--  作者：mengyun2020
--  发布时间：2014/11/25 15:34:00
--  导航窗口
Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("橱柜订单表").Compute("Count(日期)","日期 = #"  & Date.Today & "#")
Dim cnt2 As Integer = DataTables("衣柜订单表").Compute("Count(日期)","日期 = #"  & Date.Today & "#")
Dim cnt3 As Integer = DataTables("预定金明细").Compute("Count(日期)","日期 = #"  & Date.Today & "#")
Dim cnt4 As Integer = DataTables("百货订购单").Compute("Count(日期)","日期 = #"  & Date.Today & "#")
Page = e.Form.Controls("TopicBar1").Pages.Add("每日订单统计","每日订单统计")
Page.Links.Add("今日橱柜新增单数","今日橱柜新增单数(" & cnt1 & ")" )
Page.Links.Add("今日衣柜新增单数","今日衣柜新增单数(" & cnt2 & ")" )
Page.Links.Add("今日预定新增单数","今日预定新增单数(" & cnt3 & ")" )
Page.Links.Add("今日百货新增单数","今日百货新增单数(" & cnt4 & ")" )

这是我在导航窗口里面设定的代码，可是当我点橱柜新增1单的时候，必须要把橱柜窗口点开，才能看到，橱柜窗口里面筛选过的橱柜订单表当日订 单，代码怎么改一下，可以让我一点击，就可以 看到橱柜窗口_橱柜订单表？
--  作者：有点甜
--  发布时间：2014/11/25 15:42:00
--  
 新增的时候，需要那个重新刷新数据，也就是重新统计，重新赋值
--  作者：mengyun2020
--  发布时间：2014/11/25 16:17:00
--  

代码怎么改呢？

 
--  作者：有点甜
--  发布时间：2014/11/25 16:20:00
--  

 你可以加一个刷新按钮

 

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("橱柜订单表").Compute("Count(日期)","日期 = #"  & Date.Today & "#")
Dim cnt2 As Integer = DataTables("衣柜订单表").Compute("Count(日期)","日期 = #"  & Date.Today & "#")
Dim cnt3 As Integer = DataTables("预定金明细").Compute("Count(日期)","日期 = #"  & Date.Today & "#")
Dim cnt4 As Integer = DataTables("百货订购单").Compute("Count(日期)","日期 = #"  & Date.Today & "#")
Page = e.Form.Controls("TopicBar1").Pages("每日订单统计")
Page.Links("今日橱柜新增单数").Text = "今日橱柜新增单数(" & cnt1 & ")"
Page.Links("今日衣柜新增单数").Text = "今日衣柜新增单数(" & cnt2 & ")"
Page.Links("今日预定新增单数").Text = "今日预定新增单数(" & cnt3 & ")"
Page.Links("今日百货新增单数").Text = "今日百货新增单数(" & cnt4 & ")"
--  作者：Bin
--  发布时间：2014/11/25 16:49:00
--  
搞不定就上个例子吧