vb.net 两个不同结构的Datatable合并

最新推荐文章于 2023-01-06 14:45:27 发布

n_Tree

最新推荐文章于 2023-01-06 14:45:27 发布

阅读量317

点赞数

分类专栏： vb.net 文章标签： vb.net

本文链接：https://blog.csdn.net/weixin_41944227/article/details/118144385

版权

vb.net 专栏收录该内容

6 篇文章 1 订阅

订阅专栏

这是一个VB.NET函数，名为PrivateFunctionDataTable_UniteDataTable，用于合并两个DataTable对象。它首先创建一个新的DataTable dt3作为副本，然后添加dt2的所有列。接着，将dt1的行复制到dt3中，并根据dt1和dt2的行数差异处理dt2的剩余行。最后返回合并后的dt3。

摘要由CSDN通过智能技术生成

Private Function DataTable_UniteDataTable(ByVal dt1 As DataTable, ByVal dt2 As DataTable) 
        Dim dt3 As New DataTable

        dt3 = dt1.Clone()
        For i As Int16 = 0 To dt2.Columns.Count - 1 Step 1
            dt3.Columns.Add(dt2.Columns(i).ColumnName)
        Next
        Dim obj() As Object
        ReDim obj(dt3.Columns.Count)
        For i As Int16 = 0 To dt1.Rows.Count - 1 Step 1
            dt1.Rows(i).ItemArray.CopyTo(obj, 0)
            dt3.Rows.Add(obj)
        Next

        If dt1.Rows.Count >= dt2.Rows.Count - 1 Then
            For i As Int16 = 0 To dt2.Rows.Count - 1 Step 1
                For j As Int16 = 0 To dt2.Columns.Count - 1 Step 1
                    dt3.Rows(i)(j + dt1.Columns.Count - 1) = dt2.Rows(i)(j)
                Next
            Next
        Else
            Dim dr3 As DataRow
            For i As Int16 = 0 To dt2.Rows.Count - 1 - dt1.Rows.Count - 1 Step 1
                dr3 = dt3.NewRow()
                dt3.Rows.Add(dr3)
            Next
            For i As Int16 = 0 To dt2.Rows.Count - 3 Step 1
                For j As Int16 = 2 To dt2.Columns.Count - 2 Step 1
                    dt3.Rows(i)(j + dt1.Columns.Count - 2) = dt2.Rows(i)(j)
                Next
            Next
        End If
        Return dt3


    End Function

Mark