给你例子: Private Sub BoundTreeview(ByRef TreeNodes As TreeNodeCollection, ByVal ParentID As Integer) 'DocName,DocumentID,ParentDocID Dim ds As New DataSet() ds = Session("ds") Dim treeDV As New DataView() Dim treeDVrow As DataRowView Dim treeId As Integer Dim treeTemp As TreeNode Dim treeName As String treeDV.Table = ds.Tables(0) treeDV.RowFilter = "parentdocid='" & ParentID & "'" For Each treeDVrow In treeDV treeTemp = New TreeNode() treeName = treeDVrow("DocName") treeId = treeDVrow("DocumentID") treeTemp.ID = treeId treeTemp.Text = treeName TreeNodes.Add(treeTemp) BoundTreeview(TreeNodes(TreeNodes.Count - 1).Nodes, treeId) Next End Sub sql: select DocName,DocumentID,ParentDocID from euserdocumentcall function: BoundTreeview(TreeView1.Nodes, 0)
fatherid 父id
type 类型
name 名称
TomLi98011(jspeople)多谢回复。因为比较急,有没有代码可以参考
http://www.hntbtc.com/rsgl/rsgl.aspx源程序:
http://www.hntbtc.com/rsgl/rsgl.rar
http://expert.csdn.net/Expert/topic/1308/1308130.xml?temp=.9407465
Private Sub BoundTreeview(ByRef TreeNodes As TreeNodeCollection, ByVal ParentID As Integer)
'DocName,DocumentID,ParentDocID
Dim ds As New DataSet()
ds = Session("ds")
Dim treeDV As New DataView()
Dim treeDVrow As DataRowView
Dim treeId As Integer
Dim treeTemp As TreeNode
Dim treeName As String
treeDV.Table = ds.Tables(0)
treeDV.RowFilter = "parentdocid='" & ParentID & "'"
For Each treeDVrow In treeDV
treeTemp = New TreeNode()
treeName = treeDVrow("DocName")
treeId = treeDVrow("DocumentID")
treeTemp.ID = treeId
treeTemp.Text = treeName
TreeNodes.Add(treeTemp)
BoundTreeview(TreeNodes(TreeNodes.Count - 1).Nodes, treeId)
Next
End Sub
sql:
select DocName,DocumentID,ParentDocID from euserdocumentcall function:
BoundTreeview(TreeView1.Nodes, 0)