Office中国论坛/Access中国论坛

标题: 那位朋友可以帮忙修改一下这树结构的例子，在下先谢了！ [打印本页]

作者: sxgaobo 时间: 2005-12-26 02:14
标题: 那位朋友可以帮忙修改一下这树结构的例子，在下先谢了！
同题！

找到个经典的例子（对不起！不知道是那位高手的作品了），可如何能在点击树时，使相对应的文本框中显示相应的内容？

先谢谢了！！！
[attach]14943[/attach]

[此贴子已经被作者于2005-12-26 10:46:03编辑过]

作者: fan0217 时间: 2005-12-26 02:22
树结构可以实现无限级的。

作者: sxgaobo 时间: 2005-12-26 02:32
可怎么做啊！对树结构真是一头的雾水啊！

作者: fan0217 时间: 2005-12-26 02:52
到这里看看：http://www.office-cn.net/forum.php?mod=viewthread&tid=34442&replyID=&skin=1

作者: sxgaobo 时间: 2005-12-26 18:43
谢谢各位了！

麻烦再帮忙看看我发上去的例子！

作者: 一点通 时间: 2005-12-26 19:17
例子及教程都给你了,你应该自己尝试去练习,不然的话你是学不到东西的

作者: sxgaobo 时间: 2005-12-27 19:56
看了，可怎么也搞不懂啊！！！

那位朋友给看看，如何能做到点击树来刷新窗体中的数据啊？

[attach]14984[/attach]

作者: fan0217 时间: 2005-12-27 20:11
根据树返回的Key，对窗体进行查询即可。

在给你的教程中讲到了啊，并且有代码。

[此贴子已经被作者于2005-12-27 12:15:35编辑过]

作者: sxgaobo 时间: 2005-12-27 23:46
Private Sub rmTreeView1_NodeClick(ByVal Node As Object)
With Node
MsgBox "当前名称：" & .Text
MsgBox "上级名称：" & .Parent
End With
这样可以得到“当前名称”和“上级名称”，可如何可以得到“上上级的名称”和“上上上级的名称”啊？

谢谢各位的关注了，请各位高手再伸手，拉兄弟一把啊！！！

作者: sgrshh29 时间: 2005-12-28 00:59
如果只是刷新子窗体数据,这样试一试:

Private Sub rmTreeView1_NodeClick(ByVal Node As Object)
Dim strsql As String
strsql = "select * from 联系表 where '" & Me.rmTreeView1.SelectedItem.Text & "' In ([国家] , [区域], [省份] ,[城市], [单位], [姓名]);"
Me.子窗体.Form.RecordSource = strsql
Me.子窗体.Requery
End Sub

一个简单的查询语句.

[此贴子已经被作者于2005-12-27 16:59:24编辑过]

作者: sxgaobo 时间: 2005-12-28 01:29
谢谢sgrshh29！

很好使，可有个数据不惟一的问题。就是当区域或省份中包含的内容一样时，筛选出的数据就不是一个区域或省份的，而是多个区域或省份的。怎么解决啊？

作者: sgrshh29 时间: 2005-12-28 04:24
这是没有办法的事情，要么你再另外用select case treeview key的附加条件进行第二层的判断.

作者: sxgaobo 时间: 2005-12-28 19:19
谢谢sgrshh29，在这方面我真的很菜啊，能说的再详细些吗？

另：哪位朋友有关于树控件函数的详细资料啊？

如：当前名称：.Text
   父级名称：.Parent
   下属数目：.Children
那：爷级名称：？祖爷名称：？祖祖爷名称：？

作者: fan0217 时间: 2005-12-28 20:30
[attach]15009[/attach]
这份资料非常详尽，希望对你有帮助。

作者: sxgaobo 时间: 2005-12-28 21:32
谢谢fan0217！

先谢谢了，有什么问题再来麻烦各位！！！

作者: yachtz 时间: 2005-12-29 00:16

以下是引用sxgaobo在2005-12-27 15:46:00的发言：

Private Sub rmTreeView1_NodeClick(ByVal Node As Object)
With Node
MsgBox "当前名称：" & .Text
MsgBox "上级名称：" & .Parent
End With
这样可以得到“当前名称”和“上级名称”，可如何可以得到“上上级的名称”和“上上上级的名称”啊？

谢谢各位的关注了，请各位高手再伸手，拉兄弟一把啊！！！

FYI
node_Click已写代码[attach]15015[/attach]

作者: sxgaobo 时间: 2005-12-29 01:07
谢谢yachtz！

正是我需要的，非常感谢，先消化去，有问题再来打扰！！！

作者: louisegrade 时间: 2011-1-18 11:36
还要账号密码的。。。。
我看不到。。。。5555555555555

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)