关于treeview 树形结构
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ds As New Data.DataSet()
Dim CN As New SqlConnection()
Try
'初始化连接字符串
CN.ConnectionString = "data source=xie;initial catalog=scm2;persist security info=False;user id=sa;Password=;"
CN.Open()
Dim adp As SqlDataAdapter = New SqlDataAdapter("select * from tbTree", CN)
adp.Fill(ds)
Me.ViewState("ds") = ds
Catch ex As Exception
#If DEBUG Then
Session("Error") = ex.ToString()
Response.Redirect("error.aspx") '̀跳转程序的公共错误处理页面
#End If
Finally
'关闭连接
CN.Close()
End Try
'调用递归函数,完成树形结构的生成
AddTree(0, Nothing)
End Sub
'递归添加树的节点
Private Sub AddTree(ByVal ParentID As Integer, ByVal pNode As TreeNode)
Dim ds As Data.DataSet
ds = Me.ViewState("ds")
Dim dvTree As New Data.DataView()
dvTree = New Data.DataView(ds.Tables(0))
'过滤ParentID,得到当前的所有子节点
dvTree.RowFilter = "PARENTID = " + ParentID.ToString
Dim Row As Data.DataRowView
For Each Row In dvTree
Dim Node As New TreeNode()
If pNode Is Nothing Then '判断是否根节点
'添加根节点
Node.Text = Row("ConText").ToString()
TreeView1.Nodes.Add(Node)
Node.Expanded = True
'再次递归
AddTree(Int32.Parse(Row("ID").ToString()), Node)
Else
'̀添加当前节点的子节点
Node.Text = Row("ConText").ToString()
pNode.Nodes.Add(Node) '问题在这,提示Nodes不是"System.Web.UI.WebControls.TreeNode" 的成员
Node.Expanded = True
'再次递归
AddTree(Int32.Parse(Row("ID").ToString()), Node)
End If
Next
End Sub
请问各位兄弟, 错误:pNode.Nodes.Add(Node) '问题在这,提示Nodes不是"System.Web.UI.WebControls.TreeNode" 的成员
该怎么处理?谢谢!
QQ:88981904