UniteDataTable vb.net

    Private Function UniteDataTable(ByVal dt1 As DataTable, ByVal dt2 As DataTable, ByVal DTName As String)

        Dim dt3 As DataTable = dt1.Clone()

        For i As Short = 0 To dt2.Columns.Count - 1

            dt3.Columns.Add(dt2.Columns(i).ColumnName)

        Next

        Dim obj As New Object

        obj = dt3.Columns.Count

        For i As Short = 0 To dt1.Rows.Count - 1

            dt1.Rows(i).ItemArray.CopyTo(obj, 0)

            dt3.Rows.Add(obj)

        Next

        If dt1.Rows.Count >= dt2.Rows.Count Then

            For i As Short = 0 To dt2.Rows.Count - 1

                For j As Short = 0 To dt2.Columns.Count - 1

                    dt3.Rows(i)(j + dt1.Columns.Count) = dt2.Rows(i)(j).ToString()

                Next

            Next

        Else

            Dim dr3 As DataRow

            For i As Short = 0 To dt2.Rows.Count - dt1.Rows.Count - 1

                dr3 = dt3.NewRow()

                dt3.Rows.Add(dr3)

            Next

            For i As Short = 0 To dt2.Rows.Count - 1

                For j As Short = 0 To dt2.Columns.Count - 1

                    dt3.Rows(i)(j + dt1.Columns.Count) = dt2.Rows(i)(j).ToString()

                Next

            Next

        End If

        dt3.TableName = DTName

        Return dt3

    End Function