这是afterload的代码:
Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("日志内容").Compute("Count([_identify])")
Dim cnt2 As Integer = DataTables("日志内容").Compute("Count([_identify])", "已审核 = True")
Dim cnt3 As Integer = DataTables("日志内容").Compute("Count([_identify])", "已审核 = False Or 已审核 Is Null")
Page = e.Form.Controls("TopicBar1").Pages.Add("日志统计信息", "日志统计信息")
Page.Links.Add("当前日志总数", "当前日志总数(" & cnt1 & ")")
Page.Links.Add("已审核", "已审核(" & cnt2 & ")")
Page.Links.Add("未审核", "未审核(" & cnt3 & ")")