自作クラスのLISTに対して重複を削除
■自作クラスのLISTに対して重複を削除するには、LINQを使う
ex)TAddressクラスのLISTに対して、ShikuChoName列の値で重複を削除
したLISTを取得する。取得したLISTをコンボボックスにセットする。
Dim tList As IEnumerable(Of TAddress) =
tList.GroupBy(Function(p) p.ShikuChoName).
Select(Function(group) group.First()).ToList
Me.CmbShikuCho.DataSource = tList
Me.CmbShikuCho.DisplayMember = TAddress.COL_SKCS_NAME
Me.CmbShikuCho.ValueMember = TAddress.COL_SKCS_NAME