ツリービューコントロールで名前でグループ化する方法

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) 

は、新しい親ノードを毎回追加されます。ツリービューに既に同じテキストのノードが含まれているかどうかを確認し、そうでない場合は新しいノードを追加してください。

親ノードのテキストと同じキーを作成することをお勧めします。親ノードのテキストが存在するかどうかを簡単に確認できます。あなたは、この項目間の関係を記述する `parent`を設定する必要が

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