1,451
社区成员
发帖
与我相关
我的任务
分享如何有序的存储TREEVIEW中的内容，有否原代码？
如何有序的存储TREEVIEW中的内容，有否原代码？用什么格式文件存储比较方便读写？
...全文
请发表友善的回复…
发表回复
wingchi 2003-09-27
- 打赏
- 举报
Set cn1 = New adodb.Connection
cn1.Open "Driver={SQL Server};Server=" & SQL_SRV & ";Uid=" & SA & ";Pwd=" & PA & ";Database=" & SJK & ""
Set nodeX = trv1.Nodes.Add(, , "root", "aaaa123", 2, 2)
' 读取节点
Set rs1 = New adodb.Recordset
rs1.Open "select * from tree ", cn1
While Not rs1.EOF
'确定添加到树中的节点
If rs1!cs = 2 Then
Set nodeX = trv1.Nodes.Add(Right(rs1!p, Len(rs1!id)), tvwChild, rs1!id, rs1!Name, 1, 3)
ElseIf rs1!cs = 3 Then
Set nodeX = trv1.Nodes.Add(Right(rs1!p, Len(rs1!id)), tvwChild, rs1!id, rs1!Name, 4, 4)
End If
rs1.MoveNext
Wend
cn1.Open "Driver={SQL Server};Server=" & SQL_SRV & ";Uid=" & SA & ";Pwd=" & PA & ";Database=" & SJK & ""
Set nodeX = trv1.Nodes.Add(, , "root", "aaaa123", 2, 2)
' 读取节点
Set rs1 = New adodb.Recordset
rs1.Open "select * from tree ", cn1
While Not rs1.EOF
'确定添加到树中的节点
If rs1!cs = 2 Then
Set nodeX = trv1.Nodes.Add(Right(rs1!p, Len(rs1!id)), tvwChild, rs1!id, rs1!Name, 1, 3)
ElseIf rs1!cs = 3 Then
Set nodeX = trv1.Nodes.Add(Right(rs1!p, Len(rs1!id)), tvwChild, rs1!id, rs1!Name, 4, 4)
End If
rs1.MoveNext
Wend
northwolves 2003-09-24
- 打赏
- 举报
文本文件就可以。
georgesjz 2003-09-24
- 打赏
- 举报
文本文件存储。
每行按照 parent, Key ,text 顺序排列三个string型变量
如果parent为正常值，用
TreeView.Nodes.add Parent(i),tvwChild,key(i),text(i)
否则
TreeView.Nodes.add ,,key(i),text(i)
简单明了
每行按照 parent, Key ,text 顺序排列三个string型变量
如果parent为正常值，用
TreeView.Nodes.add Parent(i),tvwChild,key(i),text(i)
否则
TreeView.Nodes.add ,,key(i),text(i)
简单明了
cdknet 2003-07-07
- 打赏
- 举报
数据库呀，文本文本呀都行
Node中需要的是 Parentkey,key,text
拿数据表来说吧
Key text 两字段
存的时候 Treeview.Nodes(1) to TreeView.Nodes.cout 一个一个写入表中,如果没有Parentkey可设一特须字符也可不管,没有ParentKey表示它是顶层
读取的时候再一个一个写入表中
判断 字段Parentkey是否为特须字符或为Null 如果是就用
TreeView.Nodes.add ,,rs!key,rs!text
如果有正常值，就用
TreeView.Nodes.add Parentkey,tvwChild,rs!key,rs!text
Node中需要的是 Parentkey,key,text
拿数据表来说吧
Key text 两字段
存的时候 Treeview.Nodes(1) to TreeView.Nodes.cout 一个一个写入表中,如果没有Parentkey可设一特须字符也可不管,没有ParentKey表示它是顶层
读取的时候再一个一个写入表中
判断 字段Parentkey是否为特须字符或为Null 如果是就用
TreeView.Nodes.add ,,rs!key,rs!text
如果有正常值，就用
TreeView.Nodes.add Parentkey,tvwChild,rs!key,rs!text
