以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]同一窗体中Treeview和TextBox如何联动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9239)
--  作者：sheep204
--  发布时间：2011/3/17 16:23:00
--  [求助]同一窗体中Treeview和TextBox如何联动

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

 

 

 


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

 


 

 

[此贴子已经被作者于2011-3-17 16:26:38编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/3/17 16:38:00
--  

将包括表格和窗口的示例项目传上来，具体说明一下想实现的任务。
--  作者：sheep204
--  发布时间：2011/3/17 16:47:00
--  源文件

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:办公室通用物资管理.zip

想要实现的功能：

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

[此贴子已经被作者于2011-3-17 16:48:57编辑过]
--  作者：狐狸爸爸
--  发布时间：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编辑过]
--  作者：kylin
--  发布时间：2011/3/17 17:32:00
--  

Dim Index = Tables("物品名称").FindRow(Filter,0,False)少了个值类型


Dim Index  As Integer = Tables("物品名称").FindRow(Filter,0,False)
--  作者：狐狸爸爸
--  发布时间：2011/3/17 17:44:00
--  
呵呵，惭愧，我改一下