那位朋友可以帮忙修改一下这树结构的例子，在下先谢了！

sxgaobo

同题！

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

先谢谢了！！！

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

fan0217

树结构可以实现无限级的。

sxgaobo

可怎么做啊！对树结构真是一头的雾水啊！

fan0217

到这里看看：http://www.office-cn.net/forum.php?mod=viewthread&tid=34442&replyID=&skin=1

sxgaobo

谢谢各位了！

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

一点通

例子及教程都给你了,你应该自己尝试去练习,不然的话你是学不到东西的

sxgaobo

看了，可怎么也搞不懂啊！！！

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

fan0217

根据树返回的Key，对窗体进行查询即可。

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

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

sxgaobo

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

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

sgrshh29

如果只是刷新子窗体数据,这样试一试:

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编辑过]