[Adata]

السلام عليكم اريد عمل الشجرة لتصنيف المصارف وفروعها 
مثلا مصرف الصحاري فرع عبد المنعم 
يعني المصرف وتحته فروعة
علما بأن لدي 
جدولين جدول Banks والحقول Num,Name
          جدول BranchesBanks والحقول  Num,Num, Num_Bra,Name_Bra
علما بان حقل Num في جدول الفروع هو مفتاح الفرعي لاضافة الفرع

PHP كود :

Con.Close()
        Dim SQLstr As String = "Select * From Banks"
        Dim AccountDataSet As New DataSet
        Con.Open()
        Dim AccTableAdapter As New SqlDataAdapter(SQLstr, Con)
        AccTableAdapter.Fill(AccountDataSet, "Banks")
        CreateTree()
 Private Sub CreateTree()
        TreeView1.BeginUpdate()
        TreeView1.Nodes.Clear()

        Dim MainHeader As New TreeNode("شجــرة المصــارف")

        MainHeader.Tag = 0

        TreeView1.Nodes.Add(MainHeader)

        AddSubNode(MainHeader)

        TreeView1.EndUpdate()
        TreeView1.ExpandAll()
        TreeView1.Select()
    End Sub
    Private Sub AddSubNode(ByVal Node As TreeNode)
        Con.Close()
        Dim SQLstr As String = "Select * From Banks"
        Dim AccountDataSet As New DataSet
        Con.Open()
        Dim AccTableAdapter As New SqlDataAdapter(SQLstr, Con)
        AccTableAdapter.Fill(AccountDataSet, "Banks")
        Dim dv1 As DataView = AccountDataSet.Tables("Banks").DefaultView

        dv1.RowFilter = "Num =" & CType(Node.Tag, Integer)

        For Each drLine As DataRowView In dv1

            Dim SubNode As New TreeNode(drLine("Name"))

            SubNode.Tag = drLine("Num").ToString

            Node.Nodes.Add(SubNode)

            If Not SubNode.Tag Is String.Empty Then

                AddSubNode(SubNode)

            End If
        Next

    End Sub 


التابع المصرف