主题：[求助]同一窗体中Treeview和TextBox如何联动

将包括表格和窗口的示例项目传上来，具体说明一下想实现的任务。

目录树的NodeMouseClick事件：

If e.Node.Level = 2 Then
    Dim Filter AS String
    Dim Value() As String
    Value = e.Node.FullPath.Split("\")
    Filter ="[类别] = '" & Value(0) & "' And [品名] = '" & Value(1) &"' And [物品代码] = '" & Value(2) & "'"
    Dim Index As Integer = Tables("物品名称").FindRow(Filter,0,False)

    If Index >= 0 Then
        Tables("物品名称").Position = Index
    End If
End If