利用dataset行列互换

VBA操作DataTable实例

最新推荐文章于 2025-08-30 13:24:35 发布

原创最新推荐文章于 2025-08-30 13:24:35 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#dataset #each #string

本文通过VBA代码演示了如何从现有的DataTable中读取数据并转换到二维数组中，然后利用这些数据创建一个新的DataTable。该过程包括遍历原始表的所有列和行，将数据填充到数组中，并最终构建新的DataTable。

Dim TabTemp As New DataTable

Dim MyColumn As DataColumn
Dim MyRow As DataRow

        Dim AryTemp(,) As String
        Dim i As Int32 = 0
        Dim ii As Int32

ReDim AryTemp(DstTemp.Tables(0).Columns.Count, DstTemp.Tables(0).Rows.Count)

For Each MyColumn In DstTemp.Tables(0).Columns
 ii = 1
 AryTemp(i, 0) = i
 For Each MyRow In DstTemp.Tables(0).Rows
 AryTemp(i, ii) = MyRow(i)
 Response.Write(AryTemp(i, ii))
 ii += 1
 Next
 i += 1
 Response.Write(" ")
 Next

        '创建新表
        For i = 0 To DstTemp.Tables(0).Rows.Count
            TabTemp.Columns.Add(New DataColumn(i))
        Next

        For i = 0 To DstTemp.Tables(0).Columns.Count
            MyRow = TabTemp.NewRow()
            For ii = 0 To DstTemp.Tables(0).Rows.Count
                MyRow(ii) = AryTemp(i, ii)
            Next
            TabTemp.Rows.Add(MyRow)
        Next