VB.NET（言語：VB）でEXCELのような複数列で重複削除

Question

https://hironimo.com/prog/vbnet/dataview/

を参考にDataTableの重複の削除を試みています。
３列の内、２列が重複している行を削除したいです。

DataView.ToTableで上記サイトのように３列のうち２列の項目を指定すると、重複削除でき２列だけが表示されます。

例）データテーブル
name old height
ひろ　 10　 100
ひろ　 10　 110
ひろ　 10　 120
ひろ　 10　 130
ひろ　 10　 140
ひろ　 20　 150
ひろ　 20　 160
ひろ　 20　 170
ひろ　 20　 180
ひろ　 20　 180

Dim dtView As DataView
dtView = New DataView(dt)
dt = dtView.ToTable(True, {"name", "old"})

結果
name old
ひろ　 10
ひろ　 20

希望している重複削除後の表示は３列のままにして、しかも下側の行を残すことです。

希望する結果
name old height
ひろ　 20　 180
ひろ　 10　 140

Excelでは残したい行が上になるように並べかえて、重複の削除で列を２つ選択すれば実現できます。

例）height降順並び替え
name old height
ひろ　 20　 180
ひろ　 20　 180
ひろ　 20　 170
ひろ　 20　 160
ひろ　 20　 150
ひろ　 10　 140
ひろ　 10　 130
ひろ　 10　 120
ひろ　 10　 110
ひろ　 10　 100

重複の削除でnameとoldの2列を選択する

希望する結果
name old height
ひろ　 20　 180
ひろ　 10　 140

これをVB.NET（言語VB）でできる方法を教えて下さい。

Comments

[退会済みユーザー]

url 文字列を貼り付けるだけでなくリンクを張って下さい。

[退会済みユーザー]

思いつきレベルですが (なので回答として書きませんが)、Linq を使う方向で検討してはどうでしょう？ グループ化してから最大値を取るとか・・・

[退会済みユーザー]

Linq がダメなら、ループを回して最大値を取るとかの方法でなんとでもなると思います。name と old が重複しないレコードの取得までは出来ているようですので、例えば、全レコードから取得した name, old と一致するレコードで height が最大のものをループを回して調べていくとか。

Linq 案、上に書いたループを回す案、その他でもいいので、考えてコードを書いて質問することをお勧めします。

Answer 1

SurferOnWwwさんのヒントを元に「vb.net datatable linq 最大値」で調べて以下のプログラムにたどり着きました。

---

Sub test()
Using DataTable1 As DataTable = New DataTable
'テストデータ
With DataTable1
.Columns.Add("name", GetType(String))
.Columns.Add("old", GetType(Integer))
.Columns.Add("height", GetType(Integer))
.Rows.Add(New Object() {"ひろ", 10, 100})
.Rows.Add(New Object() {"ひろ", 10, 110})
.Rows.Add(New Object() {"ひろ", 10, 120})
.Rows.Add(New Object() {"ひろ", 10, 130})
.Rows.Add(New Object() {"ひろ", 10, 140})
.Rows.Add(New Object() {"ひろ", 20, 150})
.Rows.Add(New Object() {"ひろ", 20, 160})
.Rows.Add(New Object() {"ひろ", 20, 170})
.Rows.Add(New Object() {"ひろ", 20, 180})
.Rows.Add(New Object() {"ひろ", 20, 180})
End With

        Me.DataGridView1.DataSource = DataTable1

        'LINQで、日付毎の値段と量の最大レコードを抽出
        Dim query As IEnumerable = From order As DataRow In DataTable1.AsEnumerable
                                   Group order By name = order.Field(Of String)("name"), old = order.Field(Of Integer)("old") Into
                                   height = Max(order.Field(Of Integer)("height")) Select New Object() {name, old, height}
        'データテーブルへ代入
        Using DataTable2 As DataTable = DataTable1.Clone
            For Each order As Object() In query
                DataTable2.Rows.Add(order)
            Next order
            '結果を表示
            For Each wDataRow As DataRow In DataTable2.Rows
                For Each wDataColumn As DataColumn In DataTable2.Columns
                    Console.Write(String.Format("{0} = {1} ", wDataColumn.ColumnName, wDataRow(wDataColumn.ColumnName)))
                Next wDataColumn
                Console.WriteLine()
            Next wDataRow

            Me.DataGridView2.DataSource = DataTable2
        End Using
    End Using

End Sub

---

Form1のDataGridView1に重複削除前、DataGridView2に重複削除のデータ表示ができました。

DataGridView1
name old height
ひろ　 10　 100
ひろ　 10　 110
ひろ　 10　 120
ひろ　 10　 130
ひろ　 10　 140
ひろ　 20　 150
ひろ　 20　 160
ひろ　 20　 170
ひろ　 20　 180
ひろ　 20　 180

DataGridView2
name old height
ひろ　 10　 140
ひろ　 20　 180

SurferOnWwwさんありがとうございました。