[احمد 2021]

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

لدي اكتر من كمبو بوكس حوالي 5 كمبو كل كمبو بة اكتر من عنصر بداخلة والبعض قد يكون فارغ لايوجد بية عناصر او بية عناصر 

1- المطلوب ما اريدة هوا نقل اسم الكمبو الي التريفيو كأب والعناصر بداخلة كابناء  العناصراو الايتم  غير محددة.
 اذا كان الكمبو فارغ بمعني احد الكمبو الخمس او تنين وا هكذا فارغ يتم تجاهلة.
 واذاكان بية بيانات يتم نقلة للتريفيو حسب وضع الكمبو من الاول للاخر بمعني اول كمبو ياخذ اول اب والثاني ثاني اب والثالث ثالث اب والعناصر بنفس الترتيب 

محاولتي والنتيجة سيئة جدا

كود :

 Public Sub TREEVIEWFILL()
       TreeView1.Nodes.Clear()

       If Com_A.SelectedIndex > -1 Then
           TreeView1.Nodes.Add(Com_A.Text, Com_A.Text)
           For i = 0 To Com_A.Items.Count - 1

               TreeView1.Nodes.Add(Com_A.Text, Com_A.Items(i).ToString)
           Next
       End If

       If Com_B.SelectedIndex > -1 Then
           TreeView1.Nodes(Com_A.Text).Nodes.Add(Com_B.Text, Com_B.Text)
           For i = 0 To Com_B.Items.Count - 1

               TreeView1.Nodes(Com_A.Text).Nodes.Add(Com_B.Text, Com_B.Items(i).ToString)
           Next

       End If

       If Com_C.SelectedIndex > -1 Then
           TreeView1.Nodes(Com_A.Text).Nodes(Com_B.Text).Nodes.Add(Com_C.Text, Com_C.Text)
           For i = 0 To Com_C.Items.Count - 1
               TreeView1.Nodes(Com_A.Text).Nodes(Com_B.Text).Nodes.Add(Com_C.Text, Com_C.Items(i).ToString)
           Next

       End If
   End Sub