主题：导航窗口

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

 你可以加一个刷新按钮

 

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