Combining Two DataTable in VB.Net

Combining Two DataTable in VB.Net:

In VB.NET or C#  we  can merge two DataTable using Table1.merge(Table2).
Merging DataTable is an easy task.  When wh megre two table then content of second table will append after content of first table.

If we want to combine content of two DataTable side by side ,this is not an easy task.
But if we want to combining two DataTable then add the following code:

Public Function CombineTable(_dtGridDetails As DataTable, _dtSubGridDetails As DataTable) As DataTable
        'first create the datatable columns
        Dim mydataSet As New DataSet()
        mydataSet.Tables.Add("  ")
        Dim myDataTable As DataTable = mydataSet.Tables(0)

        'add left table columns
        Dim dcLeftTableColumns As DataColumn() = New DataColumn(_dtGridDetails.Columns.Count - 1) {}
        _dtGridDetails.Columns.CopyTo(dcLeftTableColumns, 0)

        For Each LeftTableColumn As DataColumn In dcLeftTableColumns
            If Not myDataTable.Columns.Contains(LeftTableColumn.ToString()) Then
                myDataTable.Columns.Add(LeftTableColumn.ToString())
            End If
        Next

        'now add right table columns
        Dim dcRightTableColumns As DataColumn() = New DataColumn(_dtSubGridDetails.Columns.Count - 1) {}
        _dtSubGridDetails.Columns.CopyTo(dcRightTableColumns, 0)

        For Each RightTableColumn As DataColumn In dcRightTableColumns
            If Not myDataTable.Columns.Contains(RightTableColumn.ToString()) Then
                ' if (RightTableColumn.ToString() != RightPrimaryColumn)
                myDataTable.Columns.Add(RightTableColumn.ToString())
            End If
        Next

        'add left-table data to mytable
        For Each LeftTableDataRows As DataRow In _dtGridDetails.Rows
            myDataTable.ImportRow(LeftTableDataRows)
        Next

        For nIndex As Integer = 0 To myDataTable.Rows.Count - 1
            If nIndex = _dtSubGridDetails.Rows.Count Then
                Exit For
            End If
            myDataTable.Rows(nIndex)(2) = _dtSubGridDetails.Rows(nIndex)(1)
        Next
        Return myDataTable
    End Function

------------
Happy Coding.