afterload代码如下：

Dim t1 As WinForm.TreeView
t1 =e.Form.Controls("TreeView1")
t1.BuildTree("BUG研发表", "研发组长|模块维护人","研发组名 = \'" & user.group & "\'")
t1.Nodes.Insert("显示\'" & user.group & "\'所有研发的BUG",0)
Dim t2 As WinForm.TreeView = e.Form.Controls("TreeView2")
t2.CreateTree("BUG研发表","怀疑模块","","研发组名 = \'" & user.group & "\'")
t2.Nodes.Insert("显示\'" & user.group & "\'所有模块的BUG",0)
Dim t3 As WinForm.TreeView = e.Form.Controls("TreeView3")
t3.CreateTree("BUG研发表","测试机型","","研发组名 = \'" & user.group & "\'")
t3.Nodes.Insert("显示所有机型的BUG",0)
Dim t4 As WinForm.TreeView = e.Form.Controls("TreeView4")
t4.CreateTree("BUG研发表","测试项目名称","","研发组名 = \'" & user.group & "\'")
t4.Nodes.Insert("显示所有项目的BUG",0)
Dim t5 As WinForm.TreeView = e.Form.Controls("TreeView5")
t5.CreateTree("BUG研发表","软件版本","","研发组名 = \'" & user.group & "\'")
t5.Nodes.Insert("显示所有环境的BUG",0)

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = \'待解决\' and 模块维护人邮箱 = \'" & user.name & "\'")
Dim cnt2 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = \'已更新\'  and 模块维护人邮箱 = \'" & user.name & "\'")
Dim cnt3 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = \'已解决\'  and 模块维护人邮箱 = \'" & user.name & "\'")
Dim cnt4 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","状态 = \'未解决\'  and 模块维护人邮箱 = \'" & user.name & "\'")
Dim cnt5 As Integer = DataTables("BUG研发表").SQLCompute("Count(BUG_ID)","模块维护人邮箱 = \'" & user.name & "\'")
Page = e.Form.Controls("TopicBar1").Pages.Add("挂我名下的BUG","挂我名下的BUG")
Page.Links.Add("待我解决的BUG","待我解决的BUG(" & cnt1 & ")" )
Page.Links.Add("我已更新的BUG","我已更新的BUG(" & cnt2 & ")" )
Page.Links.Add("我已解决的BUG","我已解决的BUG(" & cnt3 & ")" )
Page.Links.Add("我未解决的BUG","我未解决的BUG(" & cnt4 & ")" )
Page.Links.Add("我的所有的BUG","我的所有的BUG(" & cnt5 & ")" )

NodeMouseDoubleClick代码如下：

DataTables("BUG研发表").loadFilter = ""
DataTables("BUG研发表").Load()
Dim Filter As String
If e.Node.Text <> "显示\'" & user.group & "\'所有研发的BUG" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[研发组长] = \'" & e.Node.Text & "\'  and [研发组名] = \'" & user.group & " \'"
            DataTables("BUG研发表").loadFilter = Filter
            DataTables("BUG研发表").Load()
        Case 1
            Filter = "[模块维护人] = \'" & e.Node.Text & "\'  and [研发组名] = \'" & user.group & " \'"
            DataTables("BUG研发表").loadFilter = Filter
            DataTables("BUG研发表").Load()
    End Select
Else
    Filter = "[研发组名] = \'" & user.group & "\' "
    DataTables("BUG研发表").loadFilter = Filter
    DataTables("BUG研发表").Load()
End If

如

Dim cnt1 As Integer = DataTables("BUG研发表").Compute("Count(BUG_ID)","状态 = \'待解决\' and 模块维护人邮箱 = \'" & user.name & "\'")

e.Form.Controls("TopicBar1").Pages("挂我名下的BUG").Links("待我解决的BUG").Text = "待我解决的BUG(" & cnt1 & ")"