主题：根据字符串改变目录树勾选状态

老师，我有个授权表，里面的加载集合是这种样式的字符串：管理员，总公司，广东分公司 ，我选择不同机构，在treeView5中显示节点显示为勾选状态，红色位置该怎么写呢？

If e.Node.Level = 1 Then
    Dim i As Integer = Tables("用户管理").FindRow("姓名='" & e.Node.Name & "' and 机构名称= '" & e.Node.ParentNode.name  & "'")
    If i> = 0 Then
        Tables("用户管理").Position=i
        Dim tv As WinForm.TabControl = e.Form.Controls("TabControl1")
        If Tables("用户管理").rows.Count=0 Then Return
        Dim s As String=Tables("用户管理").Current("加载集合")
        lst.Clear
        lst.AddRange(s.Split(","))
        tr = e.Form.Controls("TreeView5")
        For Each nd As WinForm.TreeNode In tr.AllNodes  '同步子节点选中状态
            ******* '此处改怎么写呢

        Next
        Functions.Execute("用户转到加载设置")
    End If
End If

知道怎么写了，这样就可以了

        For Each nd As WinForm.TreeNode In tr.AllNodes  '同步子节点选中状态
            If lst.Contains(nd.name)
                nd.Checked=True
            Else
                nd.Checked=False
            End If
        Next