C# と VB.NET の質問掲示板

環境：ASP.NET VB.NET VisualStudio2010

◆やりたいこと。

DataTable1 と DataTable2 を比較して、その差分のみを取得したい。
LINQで行けそうな気がしたのですが、実現に至っていません。

このURLを参考にしましたが、差分があってもFalse（差分無し）で返却されます。。。
http://perutago.seesaa.net/article/254209962.html

泥臭く、DataTable1 と DataTable2をLoopで回しても別にいいっちゃいいのですが、
流行りのLINQもしくは、別の実現方法があるのならば、それでやりたいと思っています。

叡智ある皆様に是非、ご教授いただけたら幸いです。

DataTable1は[pDtMoto]
DataTable2は[pDtSaki]

これで差分が取れました。

    Private Function GetDifference(pDtMoto As DataTable, pDtSaki As DataTable) As Object

        Dim q1 = From Moto In pDtMoto.AsEnumerable() _
              Join Saki In pDtSaki.AsEnumerable() _
              On Moto!SYSLGTRNNO Equals Saki!SYSLGTRNNO _
              Where Moto!DEFAULT_CHK <> Saki!DEFAULT_CHK _
              Select New With {Saki!DEFAULT_CHK, Saki!SYSLGTRNNO}

        For Each o In q1
            Console.WriteLine("{0}, {1}", o.DEFAULT_CHK, o.SYSLGTRNNO)
        Next

        Return q1

    End Function

ただ、オブジェクト型なんですよね。。
なんかそもそもLINQを理解できてない気がしてきたのだ (_・v・_)

そもそもObject型ではなくじぇねりっくこれくしょん定義でした。

需要無いと思いますが念のためご報告。

    Private Function GetDiffDataTable(pDtMoto As DataTable, pDtSaki As DataTable) As DataTable

        Dim q1 = From Moto In pDtMoto.AsEnumerable() _
              Join Saki In pDtSaki.AsEnumerable() _
              On Moto!SYSLGTRNNO Equals Saki!SYSLGTRNNO _
              Where Moto!DEFAULT_CHK <> Saki!DEFAULT_CHK _
              Select New With {Saki!DEFAULT_CHK, Saki!SYSLGTRNNO}


        ' 列情報を組立て
        Dim dt = New DataTable()
        dt.Columns.Add("DEFAULT_CHK", Type.GetType("System.Int32"))
        dt.Columns.Add("SYSLGTRNNO", Type.GetType("System.Int64"))

        For Each o In q1
            Dim dtRow As DataRow = dt.NewRow
            dtRow("DEFAULT_CHK") = o.DEFAULT_CHK
            dtRow("SYSLGTRNNO") = o.SYSLGTRNNO

            'Console.WriteLine("{0}, {1}", o.DEFAULT_CHK, o.SYSLGTRNNO)
            dt.Rows.Add(dtRow)
        Next

        Return dt

    End Function

ご参照いただいた方ありがとうございました☆