高分征解：如何使用TreeView

[wbt]

使用以下语句时，第一句出现”语句未结束”
第二句出现“元素找不到”
dim MyNode as Node
MyNode.Add "Node1",1

[schunter]

你应该这样写：
dim MyNode as Node
set MyNode = treeview1.nodes.add "Node1",1
Node对象没有Add属性，只有Nodes对象才有Add属性。

[TopHead]

你在ASP中是吗？

给你一段代码：
<%
a=Server.CreateObject("ADODB.Connection")
a.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=NDJ;Data Source=(local)"
set cnn=Server.CreateObject("ADODB.Connection")
set rst=Server.CreateObject("ADODB.Recordset")

cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=NDJ;Data Source=(local)"

level = 0

Response.Write "<script language=vbscript>"+chr(13)+chr(10)
Response.Write "Sub window_onload()"+chr(13)+chr(10)
Do
bln = True
rst.Open "Select * From Account1 Where 级次=" & level, cnn
Do Until rst.EOF
bln = False
If level = 0 Then
Response.Write "Set nodX = TreeView1.Nodes.Add(, , ""R" & cstr(rst("ID")) & """,""" & cstr(rst("编码") & "-" & rst("名称")) & """)"+chr(13)+chr(10)
Else
Response.Write "Set nodX = TreeView1.Nodes.Add(""R" & cstr(rst("上级ID")) & """, 4, ""R" & cstr(rst("ID")) & """,""" & cstr(rst("编码") & "-" & rst("名称")) & """)"+chr(13)+chr(10)
End If
rst.MoveNext
Loop
rst.Close
level = level + 1
Loop Until bln
Response.Write "End Sub"+chr(13)+chr(10)
Response.Write "</script>"+chr(13)+chr(10)
cnn.Close
%>

[Un1]

Script只能有 variant ,不能as node

[蝈蝈俊]

这是vb的问题吧，不是asp的问题。我给你转到vb中了

[Tyro]

你应该这样写：
dim MyNode as Node
set MyNode = treeview1.nodes.add ，，，"Node1",1

[estone]

看一下msdn不就知道了。

[oldcowboy]

第一个加入的节点应该index = 0；
dim MyNode as Node
MyNode.Add "Node1",0
是有严格顺序的。