主题：关于选定节点的问题，求高手解答

我在窗口的afterload中根据数据表创建了目录树，想打开窗口直接选中第一个根节点，并将节点的的名称改为变量的内容，然后再选定该节点，可是执行完后没有选择任何节点，我点删除按钮执行删除命令时就会出错，因为没有指定实体（中间我将表和所有控件锁定，并定位到表中符合条件的位置）。请问是怎么回事？代码如下：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim user As String = vars("_UserName")
Syscmd.Table.Lock()

For Each c As Winform.Control In e.Form.Controls 
    c.ReadOnly = BooleanEnum.True 
Next
With CurrentTable
    Dim rr As Integer
    rr = .FindRow("[姓名] =  '" & Cstr(user) & " ' ", 0,True)  
    If rr >= 0 Then 
        .Position = rr 
    End If
End With
tr.BuildTree("名册", "用户|类别|姓名")
nd = tr.Nodes(0)
nd.Text = user

tr.select

还请狐老爹有空把整个项目帮我看看，哪些语句还有精练的余地，另外在人际库中“搜索记录”执行不成功，也帮忙看看，谢谢了！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:我的信息库.rar

问题是，目录树没选择第一个节点，在初始状态下我如果点删除记录就会出现错误提示窗口，因为我删除按钮语句里有区分哪个层级的节点语句，我想能不能让初始焦点直接定位到根节点，这样选删除就会弹出我设计的提示框了。

解决了，谢谢热心人啊，不过又出了一个状况，再帮忙看下吧，我的搜索记录设计了一个窗口，窗口中有个文本框，输入要查找的节点名称，然后点击确定搜索，确定中的代码如下：

Dim tr As WinForm.TreeView = Forms("我的人际库").Controls("TreeView1")
Dim tx As String = Forms("我的人际库").controls("textbox1").text
If tr.Nodes.Contains(tx) Then
    MessageBox.Show("节点已经存在")
Else
    MessageBox.Show("您要查找的记录不存在!")
End If

执行后，不管输入什么内容都显示节点已存在，不知道啥原因

不明白，我的tx是我想要找的呀，是新输入的值呀，后面的语句不是在目录树里找吗，tr.Nodes.Contains(tx) 的意思不是判断有没有符合tx的节点吗，如果理解不正确，这段语句该怎么改才能实现我的意图呢

谢谢，就是窗口引用错了，被这么低级的一个错误纠缠了半天，谢谢你