【VB】DataTableとDataTableを比較する

2016年12月18日2020年2月5日

ブログ移行のお知らせ
http://www.development-notes.temochic.com/367/

＜今回の目的＞

DataTableとDataTableを比較する方法を記載しています。

以下、ソースを記載します。

        ' DataTableとDataTableを比較する
        Dim dt = New DataTable
        dt.Columns.Add("A")
        dt.Columns.Add("B")
        dt.Columns.Add("C")
        For i As Integer = 0 To 5

            Dim dr = dt.NewRow
            dr("A") = "1"
            dr("B") = "B" + i.ToString
            dr("C") = "C" + i.ToString
            dt.Rows.Add(dr)
        Next
        Dim dt2 = New DataTable
        dt2.Columns.Add("A")
        dt2.Columns.Add("B")
        dt2.Columns.Add("C")
        For i As Integer = 0 To 5

            Dim dr = dt2.NewRow
            dr("A") = "1"
            dr("B") = "B" + i.ToString
            dr("C") = "C" + i.ToString
            dt2.Rows.Add(dr)
        Next

        ' DataTable1 = DataTable2を比較する
        If dt.AsEnumerable.SequenceEqual(dt2.AsEnumerable, DataRowComparer.Default) Then
            ' 一致
        Else
            ' 不一致
        End If