您的位置：程序门 -> vb -> 基础类

一个关于treeview的问题~

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

一个关于treeview的问题~

发表于：2007-08-29 19:34:39 楼主

rivate sub form_load（)
set mynod = tv1.nodes.add（, tvwchild, "main ", "公司名 ")
dim rs as new adodb.recordset
dim rs1 as new adodb.recordset
dim str, str1 as string
str = "select * from tb_main "
rs.open str, datalink, adopendynamic, adlockoptimistic, adcmdtext
while not rs.eof
set mynod = tv1.nodes.add（ " ' " & rs.fields（ "f_key ").value & " ' ", tvwchild, " ' " & rs.fields（ "s_key ").value & " ' ", " ' " & rs.fields（ "s_name ").value & " ' ")
rs.movenext
wend
rs.close
end sub

树根结点的key为main .然后我要把数据库里加载到数上去,,,
set mynod = tv1.nodes.add（ " ' " & rs.fields（ "f_key ").value & " ' ", tvwchild, " ' " & rs.fields（ "s_key ").value & " ' ", " ' " & rs.fields（ "s_name ").value & " ' ") 这个却总是报错说...未发现元素...
但是这几个都有值的啊!
在经等啊~
急~~~~

发表于：2007-08-29 21:22:161楼得分:0

你的tv里面key 为 rs.fields（ "f_key ").value 的节点存在
你这句话
set mynod = tv1.nodes.add（ " ' " & rs.fields（ "f_key ").value & " ' ", tvwchild, " ' " & rs.fields（ "s_key ").value & " ' ", " ' " & rs.fields（ "s_name ").value & " ' ")
是说在key为 rs.fields（ "f_key ").value的节点下添加
如果你想在main下面添加
set mynod = tv1.nodes.add（ "main ", tvwchild, " ' " & rs.fields（ "s_key ").value & " ' ", " ' " & rs.fields（ "s_name ").value & " ' ")

发表于：2007-08-29 22:19:162楼得分:0

但是main 也属于 f_key

发表于：2007-08-29 22:25:273楼得分:0

你断点看看就知道了

发表于：2007-08-30 08:31:474楼得分:0

在经等啊.....这个字错的要人命．

发表于：2007-08-31 10:18:485楼得分:0

在线等~~~~

下一篇：关于ntsvc.ocx与webbrowser之间的问题，请高手指点
上一篇：vb修改注册表

其他资讯