7,789
社区成员
发帖
与我相关
我的任务
分享谁来帮我看看错在哪里？？
运行后出错，错在 set nodX = me.TreeView1.Nodes.Add( , ,bmID,bmName) 这句，说是无效关键字，why ?
Dim bmName as String
Dim bmID as String
Dim nodX as Node
While rs.EOF = False
bmName = rs.Fields("name").Value
bmID = rs.Fields("bmid").Value
Set nodX = Me.TreeView1.Nodes.Add(, , bmID, bmName)
rs.MoveNext
Wend
Dim bmName as String
Dim bmID as String
Dim nodX as Node
While rs.EOF = False
bmName = rs.Fields("name").Value
bmID = rs.Fields("bmid").Value
Set nodX = Me.TreeView1.Nodes.Add(, , bmID, bmName)
rs.MoveNext
Wend
...全文
请发表友善的回复…
发表回复
rafaelcn 2003-11-14
- 打赏
- 举报
那我改成 set nodx = me.treeview1.nodes.add( , ,Cstr(bmID),bmName) 也不行，why ?
rafaelcn 2003-11-14
- 打赏
- 举报
bmid as String 也不行？
kimurakenshin 2003-11-14
- 打赏
- 举报
从数据库中取出的rs.fields!bmid的值是数值型的.不能做为关键字.
kimurakenshin 2003-11-14
- 打赏
- 举报
Dim bmName as String
Dim bmID as String
Dim nodX as Node
While rs.EOF = False
bmName = rs.Fields!name
bmID = rs.Fields!bmid
Set nodX = Me.TreeView1.Nodes.Add(, , bmID, bmName)
rs.MoveNext
Wend
Dim bmID as String
Dim nodX as Node
While rs.EOF = False
bmName = rs.Fields!name
bmID = rs.Fields!bmid
Set nodX = Me.TreeView1.Nodes.Add(, , bmID, bmName)
rs.MoveNext
Wend
脆皮大雪糕 2003-11-14
- 打赏
- 举报
Me.TreeView1.Nodes.Add(, , bmID, bmName) 注意，第三个参数应该是唯一的字符串
