急~~~~~TreeView问题，35603 无效的关键字
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
Dim Xnode As Node
rs.Open "select * from cw_kmgl order by 自身编号 ", Conn, 1, 3
If rs.RecordCount <> 0 Then
While Not rs.EOF
If rs.Fields( "上级编号 ") = " " Then
Set Xnode = TreeView1.Nodes.Add(, , "key " & rs.Fields( "自身编号 "), rs.Fields( "自身编号 ") & " " & rs.Fields( "名称 "))
Else
Set Xnode = TreeView1.Nodes.Add( "key " & rs.Fields( "上级编号 "), tvwChild, rs.Fields( "自身编号 "), rs.Fields( "自身编号 ") & " " & rs.Fields( "名称 "))
End If
rs.MoveNext
Wend
End If
rs.Close
总是提示错误35603 无效的关键字
1001 现金
1001001 一卡通
1001002 备用金
.
.
.
[解决办法]
这句有问题，关键字不允许全部为数字。
Set Xnode = TreeView1.Nodes.Add( "key " & rs.Fields( "上级编号 "), tvwChild, rs.Fields( "自身编号 "), rs.Fields( "自身编号 ") & " " & rs.Fields( "名称 "))
改成
Set Xnode = TreeView1.Nodes.Add( "key " & rs.Fields( "上级编号 "), tvwChild, "key " & rs.Fields( "自身编号 "), rs.Fields( "自身编号 ") & " " & rs.Fields( "名称 "))
