主题：[求助] 主窗口的afterload代码

以下为“主窗口”的afterload事件代码：

Dim str As String = GetConfigValue("保存的用户", "")
str = ("|" & str & "|").replace("|" & _UserName & "|", "|")
str = _UserName & "|" & str.trim("|")
SaveConfigValue("保存的用户", str.trim("|"))
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label15")
lbl.text = str.split("|")(0)
Dim role As String = lbl.text
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
cmd.CommandText = "Select * Fr om {用户资料表} Where [用户名] = '" & role & "'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
e.Form.Controls("Label16").text = dr("用户角色")
e.Form.Controls("Label17").text =Date.now
Dim filter01 As String
Dim filter02 As String
filter01 = "合同日期 = #" & Date.today & "# "
filter02 = "发货日期 = #" & Date.today & "# "
Tables("合同一览表").Filter = filter01
Tables("采购合同表").Filter = filter01
Tables("发货明细表").Filter = filter02
Dim number01 As Integer=Tables("合同一览表").Rows.Count
Dim number02 As Integer=Tables("采购合同表").Rows.Count
Dim number03 As Integer=Tables("发货明细表").Rows.Count
Dim Page01 As WinForm.TopicPage
Page01 = e.Form.Controls("TopicBar1").Pages.Add("今日新增","今日新增","Health.ico")
Page01.Links.Add("销售合同","销售合同:" & number01 & " 条")
Page01.Links.Add("采购合同","采购合同:" & number02 & " 条")
Page01.Links.Add("发货记录","发货记录:" & number03 & " 条")
Tables("合同一览表").ApplyFilter = False
Tables("采购合同表").ApplyFilter = False
Tables("发货明细表").ApplyFilter = False

Dim filter03 As String
filter03 = "收款日期 = #" & Date.today & "# "
Dim number04 As Integer=DataTables("收款明细表").Compute("Sum(现金金额)", filter03)
Dim number05 As Integer=DataTables("收款明细表").Compute("Sum(piao据金额)", filter03)
Dim Page02 As WinForm.TopicPage
Page02 = e.Form.Controls("TopicBar1").Pages.Add("今日收款","今日收款","46450.ico")
Page02.Links.Add("现金总额","现金总额:" & number04 & " 元")
Page02.Links.Add("承兑总额","承兑总额:" & number05 & " 元")
Tables("收款明细表").ApplyFilter = False

“主窗口”的类型为主窗口，菜单栏中有一个按钮指向“主窗口”，实际过程中：比如今天新增了2条合同，但是当点击菜单栏中的返回主页后，“今日新增”的销售合同的条数仍然不变，这是为何？

奇怪的是：当重新利用自制的登录窗口或重启项目后，可以显示出正确的条目数

需要刷新的时候，就运行一次红色的代码，不然肯定不会刷新数据。

差不多的意思，不过代码有可能要改一改，你试试。

改成

Page01.Links("销售合同").Text = "销售合同:" & number01 & " 条"