主题：[原创]树的问题

请问:

如果树和table二个控件在一个界面上，点击树中一个节点（如“华东\上海\西藏中路”），要让table控件上表的光标移到相应位置， 这个代码怎么写？

(注意，我的表是单字段树，如“华东\上海\西藏中路”是在一个字段上的。)

树是为了找到表中相应数据.我想修改树节点的名称,然后存到表中相应的行.

这个软件的树跟表是脱离的,你插入了树节点并保存到表后,你会发现插入的节点把表中的树往下挤了一位,后面的树不在原来的位置了.

定位的语句怎么写啊？查不到啊，帮助里没有

此主题相关图片如下：capture2.bmp

树的nodemouseclike事件写如下代码，但出错，请帮忙看一下:

Dim Value() As String
Value = e.Node.FullPath.Split("\")
With CurrentTable
    Dim r As Integer
    r = .FindRow("[树] Like " & Value(0) & "\" & Value(1) & "\" & Value(2)  , .Position + 1, True ) '从当前行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With

解决了.另外,

1.树的左边加个图标可以吗?(如下图)

2.我在给树重命名的时候,同时要修改这个行的其他内容,要怎么做呢?

此主题相关图片如下：操作员授权.bmp

加图标是很容易,不过帮助中没有,属性里倒很容易找到.呵呵.

另外,再请教:

1.节点图标如何用代码表示?

2.节点图标如何随着表中某字段的不同而不同?如某字段值为一是一种图标,为二是另一种图标.

3.

"从窗口编写后存入树的重命名"的代码找不到.这样写知道是错的,但不知怎么样才能对?请帮忙看一下:

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nds As List(of Winform.TreeNode) = trv.AllNodes
nds.fullpath=Forms("修改树").Controls("TextBox1").text

狐爸，这样还错，什么原因啊？