使用TreeView显示数据库 [英] Display Database using TreeView

问题描述

可能帮我在TreeView1工具vb net

我在数据库中有一个表格，如

 ------- ------------------------------------- 
 ID | SNAme | IDParent 
 -------------------------------------------- 
 1 | N1 | null 
 2 | N2 | null 
 3 | N11 | 1 
 4 | N22 | 2 
 5 | N111 | 3 
 6 | N222 | 4 
 7 | N1111 | 5 
 --------------------------------------------- 

i needs显示数据如：

 1- N1 
 ---- 3-N11 
 ------ 5-N111 
 --------- 7- N1111 
 2- N2 
 --- 4-N22 
 ------ 6-N222 

-Update

 SQLTemp =   SELECT TbAccF。* FROM dbo.TbAccF 
 cmd = 新 SqlCommand（SQLTemp，Conn）
 
 如果 Conn.State = ConnectionState.Open 然后 Conn.Close（）
 Conn.Open（）
 dr = cmd.ExecuteReader 
 
  Dim  dt 作为 新 DataTable（  TbAccF）
 dt.Load（dr）
 MsgBox（dt.Rows.Count）
 < span class =code-keyword>对于 每个 d r  As  DataRow  In  dt.Rows 
 AddNode（dr（  ParentAccID）。ToString，dr（  AccNameAr）。ToString）
 下一步 
 结束  Sub  
 
 私有  Sub  AddNode（parentNode  As   String ，nodeText 作为 字符串）
  Dim 节点作为 新列表（  TreeNode）
 node.AddRange（TreeView1 .Nodes.Find（parentNode， True ））
 如果 不 node.Any 然后 
 node.Add（TreeView1.Nodes.Add（ parentNode，parentNode））
 结束 如果 
 node（ 0 ）。Nodes.Add（nodeText，nodeText）
 结束  Sub  

解决方案

tn-ks问题已经解决.....

 SQLTemp =   SELECT TbAccF。* FROM dbo.TbAccF 
 cmd = 新 SqlCommand（SQLTemp，Conn）
 如果 Conn.State = ConnectionState.Open 那么 Conn.Close（）
 Conn.Open （）
 dr = cmd.ExecuteReader 
 
  Dim  dt 作为 新 DataTable（ 数据）
 dt.Load（dr）
  Dim  ds  As  新 DataSet（）
 ds.Tables.Add（dt）
 ds.Relations.Add（  rsParentChild，ds.Tables（ 数据）。列（  id），ds.Tables（   data）。列（  ParentId））
 对于 每个 dr 作为 DataRow 在 ds.Tables（  data）。行
 如果 dr（ < span class =code-string> ParentId）  DBNull.Value 然后 
  Dim  root  As  新 TreeNode （dr（  AccNameAr）。ToString（））
 root.Tag = dr（   CodeID）。ToString（）
 TreeView1.Nodes.Add（root）
 PopulateTree（dr，root）
 结束 如果 
 下一步 
 TreeView1.ExpandAll（）
 结束  Sub  
 
 公开  Sub  PopulateTree（dr  As  DataRow，pNode  As  TreeNode）
 对于 每个行 As  DataRow < span class =code-keyword>在 dr.GetChildRows（  rsParentChild） 
  Dim  cChild 作为 新 TreeNode（行（  CodeID）。ToString（）&  ：& row（  AccNameAr）。ToString（））
 cChild.Tag = row（< span class =code-string>  CodeID）。ToString（）
 pNode.Nodes.Add（cChild）
 PopulateTree（row，cChild）
 下一步 
 结束 子 

Possible help me in TreeView1 tool vb net
I have a table in the database like

--------------------------------------------
ID   |    SNAme  | IDParent   
--------------------------------------------
1    |   N1      |  null
2    |   N2      |  null
3    |   N11     |  1
4    |   N22     |  2
5    |   N111    |  3
6    |   N222    |  4
7    |   N1111   |  5
---------------------------------------------

i need Display data like :

1- N1
----3-N11
------5-N111
---------7- N1111
2- N2
---4-N22
------6-N222

-Update

SQLTemp = "SELECT TbAccF.* FROM dbo.TbAccF "
cmd = New SqlCommand(SQLTemp, Conn)

If Conn.State = ConnectionState.Open Then Conn.Close()
Conn.Open()
dr = cmd.ExecuteReader

Dim dt As New DataTable("TbAccF")
dt.Load(dr)
MsgBox(dt.Rows.Count)
For Each dr As DataRow In dt.Rows
    AddNode(dr("ParentAccID").ToString, dr("AccNameAr").ToString)
Next
End Sub

Private Sub AddNode(parentNode As String, nodeText As String)
Dim node As New List(Of TreeNode)
node.AddRange(TreeView1.Nodes.Find(parentNode, True))
If Not node.Any Then
    node.Add(TreeView1.Nodes.Add(parentNode, parentNode))
End If
node(0).Nodes.Add(nodeText, nodeText)
End Sub

解决方案

tn-ks problem has been resolved.....

SQLTemp = "SELECT TbAccF.* FROM dbo.TbAccF "
    cmd = New SqlCommand(SQLTemp, Conn)
    If Conn.State = ConnectionState.Open Then Conn.Close()
    Conn.Open()
    dr = cmd.ExecuteReader

    Dim dt As New DataTable("data")
    dt.Load(dr)
    Dim ds As New DataSet()
    ds.Tables.Add(dt)
    ds.Relations.Add("rsParentChild", ds.Tables("data").Columns("id"), ds.Tables("data").Columns("ParentId"))
    For Each dr As DataRow In ds.Tables("data").Rows
        If dr("ParentId") Is DBNull.Value Then
            Dim root As New TreeNode(dr("AccNameAr").ToString())
            root.Tag = dr("CodeID").ToString()
            TreeView1.Nodes.Add(root)
            PopulateTree(dr, root)
        End If
    Next
    TreeView1.ExpandAll()
End Sub

Public Sub PopulateTree(dr As DataRow, pNode As TreeNode)
    For Each row As DataRow In dr.GetChildRows("rsParentChild")
        Dim cChild As New TreeNode(row("CodeID").ToString() & " : " & row("AccNameAr").ToString())
        cChild.Tag = row("CodeID").ToString()
        pNode.Nodes.Add(cChild)
        PopulateTree(row, cChild)
    Next
End Sub

这篇关于使用TreeView显示数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！