تعديل على الشجرة TreeView
السلام عليكم ورحمة الله وبركاته
احتاج مساعتكم فى التعديل على الشجرة TreeView وذلك للعمل فى برنامج الارشيف
لدى عدد 2 جدول مرتبطين علاقة راس باطراف
الجدول الاول يسمى (name_fail) وبه الاقسام او الفولدرات الرئيسية (وهى سجلات الاب فى الشجرة)
والجدول الثانى يسمى (emp_fail) وبه الملفات الفرعية(وهى سجلات الابن فى الشجرة)
مثال على انظر الصورة المرفقة
المطلوب
هو
فى القاعدة المرفقة اريد ان يعرض لكل اب كل الابناء المرتبطة به لانه لايعرض حاليا الا سجل ابن لكل اب
مثال على ذلك
1- الشئون المالية (هذ
تفضل
انا وضعت الكود التالي في كود النموذج:
Private Sub TreeView1_NodeClick(ByVal Node As Object)
On Error GoTo err_TreeView1_NodeClick
'lblItemCode.Caption = ""
'If Node.Key <> "Root" Then
' lblItemCode.Caption = Mid(Node.Key, InStr(Node.Key, "_") + 1)
'End If
'lblPath.Caption = Node.FullPath
' Dim colon As Integer
' colon = InStr(Node.Text, ":")
' Me.txt3 = Mid(Node.Text, 1, colon - 1)
' Me.Txt4 = Mid(Node.Text, colon + 1)
' colon = InStr(Nod