怎样使用Treeview控件从sheet表中读取数据

friendjihao · 发表于 2006-4-30 09:25

我想把sheet1 中的数据显示用树型目录显示出来！要在Treeview1中添加什么代码才能实现？请高手帮助我！

MZb3zvkF.rar (10.73 KB, 下载次数: 26)

青山依旧 · 发表于 2006-4-30 10:10

哈哈,这个搜索一下Treeview吧.

friendjihao · 发表于 2006-4-30 10:17

我在论坛上搜索过了，但是把代码加上后总是显示不出sheet1中的内容

青山依旧 · 发表于 2006-4-30 10:26

你的窗体中啊有什么代码哟.

friendjihao · 发表于 2006-4-30 10:34

加进去还是显示不了

p6W56ccv.rar (24.13 KB, 下载次数: 16)

青山依旧 · 发表于 2006-4-30 14:16

qWyxv1UT.rar (13.57 KB, 下载次数: 113)

烟雨厦江南 · 发表于 2006-4-30 15:19

Private Sub UserForm_Initialize() Dim W As Integer, A As Integer, B As Integer, C As Integer, D As Integer, S As Integer Dim E As Integer TreeView1.Nodes.Clear TreeView1.LabelEdit = tvwManual TreeView1.ImageList = ImageList1 TreeView1.LineStyle = tvwRootLines TreeView1.Style = tvwTreelinesPlusMinusPictureText TreeView1.Nodes.Add , , "等级1", "等级1", 1, 2 TreeView1.Nodes.Add , , "等级2", "等级2", 1, 2 TreeView1.Nodes.Add , , "等级3", "等级3", 1, 2 TreeView1.Nodes.Add , , "等级4", "等级4", 1, 2 TreeView1.Nodes.Add , , "等级5", "等级5", 1, 2 S = [A65536].End(xlUp).Row A = 0 B = 0 C = 0 D = 0 E = 0 For i = 2 To S If Range("B" & i).Value = 1 Then A = A + 1 TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & A, "等级1-" & A & Cells(i, 1), 2, 3 End If If Range("B" & i).Value = 2 Then B = B + 1 TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & B, "等级2-" & Cells(i, 1) & B, 2, 3 End If If Range("b" & i).Value = 3 Then C = C + 1 r = i TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & C, "等级3-" & Cells(i, 1) & C, 2, 3 End If If Range("b" & i).Value = 4 Then D = D + 1 TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & D, "等级4-" & Cells(i, 1) & D, 2, 3 End If If Range("b" & i).Value = 5 Then E = E + 1 TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & E, "等级5-" & Cells(i, 1) & E, 2, 3 End If Next i End Sub

8eKhCn3A.rar (14.15 KB, 下载次数: 80)

friendjihao · 发表于 2006-4-30 15:35

以下是引用[I]青山依旧[/I]在2006-4-30 14:16:27的发言：[BR]

太感谢了！能不能帮我解释一下，这两句为什么要这样写： TreeView1.Nodes.Add , , "x" & Cells(i, 2), Cells(i, 2) TreeView1.Nodes.Add "x" & Cells(i, 2), 4, "x" & Cells(i, 2) & k, k 为什么要在Cells(i, 2)前加"x" &呢？

friendjihao · 发表于 2006-4-30 15:49

以下是引用[I]烟雨厦江南[/I]在2006-4-30 15:19:49的发言：[BR]Private Sub UserForm_Initialize() Dim W As Integer, A As Integer, B As Integer, C As Integer, D As Integer, S As Integer Dim E As Integer TreeView1.Nodes.Clear TreeView1.LabelEdit = tvwManual TreeView1.ImageList = ImageList1 TreeView1.LineStyle = tvwRootLines TreeView1.Style = tvwTreelinesPlusMinusPictureText TreeView1.Nodes.Add , , "等级1", "等级1", 1, 2 TreeView1.Nodes.Add , , "等级2", "等级2", 1, 2 TreeView1.Nodes.Add , , "等级3", "等级3", 1, 2 TreeView1.Nodes.Add , , "等级4", "等级4", 1, 2 TreeView1.Nodes.Add , , "等级5", "等级5", 1, 2 S = [A65536].End(xlUp).Row A = 0 B = 0 C = 0 D = 0 E = 0 For i = 2 To S If Range("B" & i).Value = 1 Then A = A + 1 TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & A, "等级1-" & A & Cells(i, 1), 2, 3 End If If Range("B" & i).Value = 2 Then B = B + 1 TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & B, "等级2-" & Cells(i, 1) & B, 2, 3 End If If Range("b" & i).Value = 3 Then C = C + 1 r = i TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & C, "等级3-" & Cells(i, 1) & C, 2, 3 End If If Range("b" & i).Value = 4 Then D = D + 1 TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & D, "等级4-" & Cells(i, 1) & D, 2, 3 End If If Range("b" & i).Value = 5 Then E = E + 1 TreeView1.Nodes.Add "等级" & Cells(i, 2), tvwChild, "等级" & Cells(i, 2) & E, "等级5-" & Cells(i, 1) & E, 2, 3 End If Next i End Sub

真棒啊！请教，附件里的每项之前的图片时怎么加上的

goso501 · 发表于 2006-4-30 16:01

树型和其他窗口怎么连接啊？？

		自动登录	找回密码
密码			免费注册