[求助]同一窗体中Treeview和TextBox如何联动 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]同一窗体中Treeview和TextBox如何联动

共有12874人关注过本帖树形打印复制链接主题：[求助]同一窗体中Treeview和TextBox如何联动

sheep204

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：56 积分：844 威望：0 精华：0 注册：2011/3/10 13:40:00

[求助]同一窗体中Treeview和TextBox如何联动 发帖心情

Post By：2011/3/17 16:23:00 [只看该作者]

我在一个窗体中放了个TreeView和若干个TextBox和ComboBox，怎样才能实现点击TreeView中的项目，Textbox中显示相应的数据。具体见附件

图片点击可在新窗口打开查看此主题相关图片如下：frm.jpg

[此贴子已经被作者于2011-3-17 16:26:38编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/3/17 16:38:00 [只看该作者]

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

sheep204

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：56 积分：844 威望：0 精华：0 注册：2011/3/10 13:40:00

源文件

Post By：2011/3/17 16:47:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:办公室通用物资管理.zip

想要实现的功能：

1、点右边treeview的项目后，左边的Textbox和ComboBox等控件能对应显示Treeview中的数据

[此贴子已经被作者于2011-3-17 16:48:57编辑过]

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/3/17 17:27:00 [只看该作者]

目录树的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

[此贴子已经被作者于2011-3-17 17:44:07编辑过]