트 리뷰 컨트롤에서 이름으로 그룹화하는 방법

Question

나는 인터넷 검색 및 유튜브 검색 중이지만 답변을 찾을 수 없어 여기에서 도움을 요청하고 싶습니다.

VB에서 TreeView 컨트롤의 이름을 그룹화하려면 어떻게해야합니까?

는

Public Class FrmPengingat 

    Private Sub FrmPengingat_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     'TODO: This line of code loads data into the 'DSLap.PengingatHutang' table. You can move, or remove it, as needed. 
     Me.PengingatHutangTableAdapter.Fill(Me.DSLap.PengingatHutang) 

     'fill the tree control 
     Dim NmPemasok As String 
     Dim NoNota As String 
     Dim TglJatuhTempo As Date 
     Dim Total As Decimal 
     Dim tmpNmPemasok As String 

     Dim i As Integer 
     For i = 0 To DSLap.PengingatHutang.Count - 1 
      NmPemasok = DSLap.PengingatHutang.Rows(i).Item(0) 
      tmpNmPemasok = DSLap.PengingatHutang.Rows(i).Item(0) 
      NoNota = DSLap.PengingatHutang.Rows(i).Item(1) 
      TglJatuhTempo = DSLap.PengingatHutang.Rows(i).Item(2) 
      Total = DSLap.PengingatHutang.Rows(i).Item(3) 

      TreeView1.Nodes.Add(i, NmPemasok).Nodes.Add(i, NoNota & " (" & TglJatuhTempo & ") " & Total) 

     Next 
    End Sub 
End Class 

Answer 1

이 줄 감사합니다

TreeView1.Nodes.Add(i, NmPemasok).Nodes.Add(i, NoNota & " (" & TglJatuhTempo & ") " & Total) 

는 새로운 부모 노드마다 추가합니다. 트리보기에 동일한 텍스트가있는 노드가 이미 있는지 확인하고 그렇지 않은 경우 새 노드 만 추가해야합니다.

키를 부모 노드의 텍스트와 동일하게 만들면 그 노드가 존재하는지 여부를 쉽게 확인할 수 있습니다.

이 함께 위의 교체 :

If TreeView1.Nodes.ContainsKey(NmPemasok) Then 'The parent node already exists. 
    TreeView1.Nodes(NmPemasok).Nodes.Add(i, NoNota & " (" & TglJatuhTempo & ") " & Total) 
Else 'The parent node doesn't exist. 
    TreeView1.Nodes.Add(NmPemasok, NmPemasok).Nodes.Add(i, NoNota & " (" & TglJatuhTempo & ") " & Total) 
End If