主题：[求助]节点显示问题

怎么写 才能自动勾选一级呢

老师，

怎么写，求代码

Dim tr1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim tr2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd1 As WinForm.TreeNode = tr1.SelectedNode
Select Case nd1.Level
    Case 0
        tr2.GenerateTree("表A","第一列","第二列",".")
        tr2.ExpandAll
    Case 1
        For Each dr As DataRow In DataTables("表a").DataRows
            If dr("第三列").Contains(nd1.ParentNode.Text) Then
                dr("显示") = True
            Else
                dr("显示") = False
            End If
        Next
        tr2.GenerateTree("表A","第一列","第二列",".","[显示] =true")
        For Each nd3 As WinForm.TreeNode In tr2.AllNodes
            nd3.Text=e.Node.DataRow("第二列")
        Next
        tr2.ExpandAll
        Vars("Tree") = False
End Select
For Each nd2 As WinForm.TreeNode In tr2.AllNodes
    For Each dr As DataRow In DataTables("表A").DataRows
        If nd2.Text = dr("第一列") And dr("第一列").Contains(nd1.Text) Then
            nd2.Checked = True
        End If
    Next
Next
Vars("Tree") = True

红袍老师，

   再求您给看看，到底应该怎么写呀。