- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]同一窗体中Treeview和TextBox如何联动 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9239)
-- 发布时间：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
--
将包括表格和窗口的示例项目传上来，具体说明一下想实现的任务。
-- 发布时间：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编辑过]
-- 发布时间：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
--
呵呵，惭愧，我改一下