| Field1 | Field2 |
|---|---|
| りんご | 青森 |
| りんご | 青森 |
| みかん | 愛媛 |
| みかん | 和歌山 |
| みかん | 和歌山 |
| メロン | 北海道 |
重複を取り除いた結果は以下のデータになります。
| Field1 | Field2 |
|---|---|
| りんご | 青森 |
| みかん | 愛媛 |
| みかん | 和歌山 |
| メロン | 北海道 |
Dim dtOriginal As New DataTable
dtOriginal.Columns.Add("Field1", GetType(String))
dtOriginal.Columns.Add("Field2", GetType(String))
dtOriginal.Rows.Add(New Object() {"りんご", "青森"})
dtOriginal.Rows.Add(New Object() {"りんご", "青森"})
dtOriginal.Rows.Add(New Object() {"みかん", "愛媛"})
dtOriginal.Rows.Add(New Object() {"みかん", "和歌山"})
dtOriginal.Rows.Add(New Object() {"みかん", "和歌山"})
dtOriginal.Rows.Add(New Object() {"メロン", "北海道"})
Dim viw As New DataView(dtOriginal)
Dim isDistinct As Boolean = True
Dim cols() As String = {"Field1", "Field2"}
Dim dtFilter As DataTable = viw.ToTable(isDistinct, cols)
For Each row As DataRow In dtFilter.Rows
Console.WriteLine("Field1={0}, Field2={1}", row.Item("Field1").ToString, row.Item("Field2").ToString)
Next
【関連項目】
DataTableをグループ化し集計するには
1 件のコメント:
ここまでブロークンなEngrishも珍しいと思う
コメントを投稿