还请各位朋友们帮帮忙,我是新手,
黄色的字是问题所在, 换了好几种方法了,就是做不出来,大多数提示关键字不是唯一的,还请大家帮忙,自己做好的还请贴出来参考一下或者发到>,十分感谢。 Dim key, Text, BH As String
Dim myNod As Node
Set myNod = TreeView1.Nodes.Add(, tvwChild, "sort", "WinOA协同")
rs.Open "select * from xianshi", cn
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While rs.EOF = False
key = Trim(rs.Fields("id_1"))
Text = rs.Fields("id_1")
Set myNod = TreeView1.Nodes.Add("sort", tvwChild, key, Text)
rs.MoveNext
Loop
End If
黄色的字是问题所在, 换了好几种方法了,就是做不出来,大多数提示关键字不是唯一的,还请大家帮忙,自己做好的还请贴出来参考一下或者发到>,十分感谢。 Dim key, Text, BH As String
Dim myNod As Node
Set myNod = TreeView1.Nodes.Add(, tvwChild, "sort", "WinOA协同")
rs.Open "select * from xianshi", cn
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While rs.EOF = False
key = Trim(rs.Fields("id_1"))
Text = rs.Fields("id_1")
Set myNod = TreeView1.Nodes.Add("sort", tvwChild, key, Text)
rs.MoveNext
Loop
End If
解决方案 »
- 我用installshield打包的程序(vb6+水晶报表9),在2000下提示无法注册模块
- 一条较复杂的SQL语句
- 请问 vb6.0 的 winsock 控件 是不是 阻塞式 的 ??
- 请老鸟们帮个忙,数据操作时实时错误3021
- 这个是怎么做?
- 日期的语法错误 在查询表达式 '#2003-12-6 下午 03:04:37#' 中
- 用RecordSet读CSV文件时遇到的难题?200
- access的求和问题
- 各位 coolman 请进
- 怎样设置打印时的字体大小??
- ★★★★★★急啊,如何判断用Set newfrm = New Form4这种方式打开的窗体是否已打开?★★★★★★
- 用vb写的activex控件,在IE中使用,如何从IE中给activex控件传递参数呢?
请确认 数据库中返回Key的值不是1 2 45 这样的数值型数据.
请再确认 数据库中返回Key的值是不重复的,也就是说数据库里面这个字段的值是不重复的.如果以上两上条件满足,就不会出现问题了,
------------------------------
同意楼上意见
另外说一句,楼主这句定义是故意写成这样的还是失误?
似乎应该是Dim key As String , Text As String , BH As String
但 key 这说集合中的关键字不唯一,, 就是这解决不了,
如果数据库里面错误,那你在写的时间也会错误.如果你实在不行,就不要Key了.
我可以教你个办法解决(你的字段rs.Fields("id_1")中数据不包含“,”吧),
dim i as longIf rs.RecordCount > 0 Then
rs.MoveFirst
Do While rs.EOF = False
key = "K," & Trim(rs.Fields("id_1")) & "," & i
i=i+1
Text = rs.Fields("id_1")
Set myNod = TreeView1.Nodes.Add("sort", tvwChild, key, Text)
rs.MoveNext
Loop
End If
Dim Key, Text, BH As String
Dim Nod As Node
Key = "WinOA协同"
Text = "WinOA协同"
Set Node1 = TreeView1.Nodes.Add(, , Key, Text, 2)
rs.Open "select * from xianshi ", cn
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While rs.EOF = False
Key = Trim(rs.Fields("id_1"))
Text = rs.Fields("id_1")
Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, Key, Text, 1, 3)
rs.MoveNext
Loop
Else
End If
其实也没改什么就是把数据库换个版本,快下班了祝大家有个愉快的周末,
周一过来结贴,多谢大家了,实在是太感谢了