以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  导航栏数据更新  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185513)

--  作者：denghui69986 --  发布时间：2023/2/27 12:00:00 --  导航栏数据更新 做了一个导航栏统计每天录入数据，以批号和日期统计，每次输入没及时变动导航栏数据，要从新打开才会变动当天输入的数据，代码放在窗口事件（AfteLoad） 代码下面这样写的，老师帮忙看看，那里问题不能及时变动数据 开始生成今日订单情况任务栏显示具体数据 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 & "#")\'发料单 Page = e.Form.Controls("TopicBar1").Pages.Add("今日录入情况", "今日录入情况")\'一级菜单显示名称 Page.Links.Add("今日上线生产", "今日上线生产(" & cnt1 & ")批")\'二级菜单显示名称 后面引用cnt1变量的分析数据? Page.Links.Add("电脑裁剪已生产", "电脑裁剪已生产(" & cnt2 & ")") Page.Links.Add("生产完已发单", "生产完已发单(" & cnt3 & ")")

--  作者：有点蓝 --  发布时间：2023/2/27 12:04:00 --   如果要实时更新，把代码放一份到这些表的datacolchanged事件执行。或者启动窗口计时器，定时执行

--  作者：denghui69986 --  发布时间：2023/2/27 15:39:00 --   谢谢老师指导，可以了