有如下代码,设想是当入库表,出库表或者是订单表新增行的时候,主窗口首页导航上的TopicBar1上能自动显示新增当天行的累计数,可是如下代码必须是重新打开项目的时候,或者是窗口设计的时间才会发生变化,猜想应该是主窗口与独立窗口的问题,求代码修改,谢谢!
Dim dt As Date = Date.Today.AddDays(1)
Select Case e.Link.Name
Case "今日商品入库"
Forms("入库查询").Open
Tables("入库查询_入库查询").Filter = "入库日期 = #" & Date.Today & "#"
Case "今日商品出库"
Forms("出库查询").Open
Tables("出库查询_出库查询").Filter = "打印时间 = #" & Date.Today & "#"
Case "今日新增订单"
Forms("订单").Open
Tables("订单").Filter = "下单日期 = #" & Date.Today & "#"
Case "明天准备生产"
Forms("订单").Open
Tables("订单").Filter = "交货日期 = #" & dt & "#"
End Select