主题：[求助]目录树字体

afterLoad事件，改成

'''
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("检验结果","日期|姓名")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 1 Then
        For Each s As String In nd.DataRow("体检项目").split("、")
            nd.nodes.Add(s)
        Next
    End If
Next