Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
sheep204 发表于:2011/3/17 16:23:00

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

 

 

 


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

 


 

 

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

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

3楼
sheep204 发表于:2011/3/17 16:47:00

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

想要实现的功能:

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

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

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


Dim Index  As Integer = Tables("物品名称").FindRow(Filter,0,False)

6楼
狐狸爸爸 发表于:2011/3/17 17:44:00
呵呵,惭愧,我改一下
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04297 s, 3 queries.