2008年12月17日水曜日

.NET DataTableから重複を取り除くには

以下のようなデータが入ったDataTableから、Field1とField2で重複を取り除きます。
Field1Field2
りんご青森
りんご青森
みかん愛媛
みかん和歌山
みかん和歌山
メロン北海道


重複を取り除いた結果は以下のデータになります。
Field1Field2
りんご青森
みかん愛媛
みかん和歌山
メロン北海道


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をグループ化し集計するには

2 件のコメント:

Buy Twitter Followers さんのコメント...

Fantastic, I'm enjoyed read this post, Every time search this type of post. Really I enjoyed. This article is really very interesting and effective. I think its must be helpful for us. Thanks for sharing your informative. Buy Twitter Followers

匿名 さんのコメント...

ここまでブロークンなEngrishも珍しいと思う