请问错在那里？

Question

我想选中一个节点为“销售订单”显示ListView1,可总是不对？
If 
        TreeView1.SelectedNode=TreeView1.Name("销售订单") 
Then    Me.ListView1.Visible = True
End if

Answer 1

TreeView1.SelectedItem = TreeView1.Nodes("root")
MsgBox TreeView1.SelectedItem.Text

Answer 2

Private Sub Command1_Click()
MsgBox TreeView1.SelectedItem.Text
TreeView1.SelectedItem = TreeView1.Nodes("root")
MsgBox TreeView1.SelectedItem.Text
End SubPrivate Sub Form_Load()
TreeView1.Nodes.Add , , "root", "root"
TreeView1.Nodes.Add "root", tvwChild, , "child1"
TreeView1.Nodes.Add "root", tvwChild, , "child2"
TreeView1.Nodes.Add "root", tvwChild, , "child3"
TreeView1.Nodes.Add "root", tvwChild, , "child4"
TreeView1.Nodes.Add "root", tvwChild, , "child5"TreeView1.Nodes("root").Expanded = True
End Sub