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

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单的时候，必须要把橱柜窗口点开，才能看到，橱柜窗口里面筛选过的橱柜订单表当日订单，代码怎么改一下，可以让我一点击，就可以看到橱柜窗口_橱柜订单表？

新增的时候，需要那个重新刷新数据，也就是重新统计，重新赋值

代码怎么改呢？

你可以加一个刷新按钮

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

搞不定就上个例子吧

主题：导航窗口