DataSet

下記のような重複データがあるデータテーブルを作成する

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

コメント：

お名前:

(画像の文字列を入力して下さい)