كيفية التعامل مع treeview

أخى كود ل TreeView لقاعدة بيانات Northwind

مع ملاحظة تغيير ال connectionsString عندك

والتطبيق عليه فى المرفقات مع سكريبت قاعدة البيانات

Imports System.Data.SqlClient
Imports System.Data

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strConn As String = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=AMR\SQLEXPRESS"



        Dim objConn As New SqlConnection(strConn)

        Dim objDS As New DataSet



        Dim daSuppliers As New SqlDataAdapter("SELECT CompanyName,SupplierID FROM Suppliers", objConn)



        Dim daProducts As New SqlDataAdapter("SELECT ProductName, ProductID, SupplierID FROM Products", objConn)



        daSuppliers.Fill(objDS, "dtSuppliers")

        daProducts.Fill(objDS, "dtProducts")



        objConn.Close()



        objDS.Relations.Add("SuppToProd", objDS.Tables("dtSuppliers").Columns("SupplierID"), objDS.Tables("dtProducts").Columns("SupplierID"))



        Dim nodeSupp, nodeProd As TreeNode

        Dim rowSupp, rowProd As DataRow



        For Each rowSupp In objDS.Tables("dtSuppliers").Rows

            nodeSupp = New TreeNode

            nodeSupp.Text = rowSupp("CompanyName")

            nodeSupp.Tag = rowSupp("SupplierID")

            TreeView1.Nodes.Add(nodeSupp)

            For Each rowProd In rowSupp.GetChildRows("SuppToProd")

                nodeProd = New TreeNode

                nodeProd.Text = rowProd("ProductName")

                nodeProd.Tag = rowProd("ProductID")

                nodeSupp.Nodes.Add(nodeProd)

            Next

        Next



        'clean up

        objDS.Dispose()

        daSuppliers.Dispose()

        daProducts.Dispose()

        objConn.Close()

        objConn.Dispose()
    End Sub
End Class

treeview.zip

InstNwnd.zip

اخى العزيز

طلب صغير ممكن حضرتك تبعتلى جدول قاعدة البيانات

او المثال مرفق بقاعدة البيانات على الايميل الخاص

ESLAM_LIMO@YAHOO.COM

وانا اكون شاكر ليك جدا