[elgokr]

(07-09-18, 11:55 AM)hussein rayhan كتب : السلام عليكم
شكرا على المثال الرائع لكن لدي سؤال كيف يمكن ازالة المرحلة الاولى من الشجرة أقصد اسم الشجرة من شجرة العرض والسماح فقط عند تحميل النموذج بعرض أول فرع

وعليكم السلام ورحمة الله وبركاته

كل ما عليك الاتى عند الكود التالى

كود :

           REM المرحلة الاولى من الشجرة
           If dt.Rows(ii)(0) = "0" Then
               TreeView1.Nodes.Add(dt.Rows(ii)("TreeID"), dt.Rows(ii)("AccName"))
           ElseIf dt.Rows(ii)("AccSupID") = 0 And dt.Rows(ii)("TreeSupID") = 0 Then
               TreeView1.Nodes(dt.Rows(ii)("TreeSupID")).Nodes.Add(dt.Rows(ii)("TreeID"), dt.Rows(ii)("AccName"))
           End If

استبدله بهذا الكود

كود :

           REM المرحلة الاولى من الشجرة
           If dt.Rows(ii)("AccSupID") = 0 And dt.Rows(ii)("TreeSupID") = 0 Then
               TreeView1.Nodes.Add(dt.Rows(ii)("TreeID"), dt.Rows(ii)("AccName"))
           End If

وتاتي على  الكود التالى

كود :

           REM المرحلة الثانية من الشجرة
           For iT As Integer = 0 To T1 - 1
               If dt.Rows(ii)("AccSupID") = iT + 1 And dt.Rows(ii)("TreeSupID") = "10" & (iT + 1) Then
                   TreeView1.Nodes(0).Nodes(iT).Nodes.Add(dt.Rows(ii)("TreeID"), dt.Rows(ii)("AccName"))
               End If
           Next

تستبدله بالكود التالى

كود :

           REM المرحلة الثانية من الشجرة
           For iT As Integer = 0 To T1 - 1
               If dt.Rows(ii)("AccSupID") = iT + 1 And dt.Rows(ii)("TreeSupID") = "10" & (iT + 1) Then
                   TreeView1.Nodes(iT).Nodes.Add(dt.Rows(ii)("TreeID"), dt.Rows(ii)("AccName"))
               End If
           Next

وسيعمل معك بدون عنوان الشجرة كما طلبت

تحياتى لك

وتمنياتى لك التوفيق