treeview控件的简单问题,请帮帮忙? 谢谢了!!!

aiwaweiwei 2005-10-31 01:03:29
我的代码如下:怎么总是出现错误提示:“集合中关键字不唯一”,请教应该怎么写代码,才能实现树行结构:不要子节点的:
dim nodex as node
rs=conn.execute("select* from jcxinxi")
if not rs.eof then
do until rs.eof
set nodex=treeview1.nodes.add(,,"r",rs!dynum)
rs.movenext
loop
end if

谢谢了!!!
...全文
185 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
clear_zero 2005-10-31
  • 打赏
  • 举报
回复
nodex=treeview1.nodes.add(,,"r",rs!dynum)
其中key 对于treeview每个节点都应该是不同的。
如果再循环中没行都用r来做为key当然出错

所以,建议

for i=0 to rs.recordcount-1
set nodex=treeview1.nodes.add(,,"r"& i,rs!dynum)
rs.movenext
next i

试试看
northwolves 2005-10-31
  • 打赏
  • 举报
回复
On error resume next
Acomputer 2005-10-31
  • 打赏
  • 举报
回复
楼上,观点正确
xiaoMONKEY 2005-10-31
  • 打赏
  • 举报
回复
TreeView1.Nodes.Add 父节点, 形式, 关键字, 字符, 图片
treeview1.nodes.add(,,"r",rs!dynum)
"r"所有节点关建字都是"r"所以错了
自己修改一下吧
bbhere 2005-10-31
  • 打赏
  • 举报
回复
已经if和do重复了
去掉do until和loopa

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧