20-01-19, 02:30 PM
السلام عليكم اريد عمل الشجرة لتصنيف المصارف وفروعها
مثلا مصرف الصحاري فرع عبد المنعم
يعني المصرف وتحته فروعة
علما بأن لدي
جدولين جدول Banks والحقول Num,Name
جدول BranchesBanks والحقول Num,Num, Num_Bra,Name_Bra
علما بان حقل Num في جدول الفروع هو مفتاح الفرعي لاضافة الفرع
التابع المصرف
مثلا مصرف الصحاري فرع عبد المنعم
يعني المصرف وتحته فروعة
علما بأن لدي
جدولين جدول 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