利用dataset行列互换

atq9

于 2006-05-10 14:18:00 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

文章标签： dataset each string

本文链接：https://blog.youkuaiyun.com/jk007/article/details/721801

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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("<br>")
        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