以文本方式查看主题

-  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
--  
呵呵,惭愧,我改一下