基于数据集的多维数组分配
基于数据集的多维数组分配
提问于 2011-06-15 06:15:50
我正在沿着下面提到的代码行尝试一些东西。虽然它在一维数组中工作。如何使它与二维数组一起工作？
Dim arrayord(,) As String = {ds.Tables(0).Rows(3).ItemArray, ds.Tables(0).Rows(23).ItemArray}但是它会抛出以下错误。
错误8类型的“一维对象数组”的值不能转换为“二维字符串数组”，因为“一维对象数组”不是从“String”派生出来的。
Stack Overflow用户
回答已采纳
发布于 2011-06-15 06:31:16
Dim dtb1 As New DataTable("Table1")
dtb1.Columns.Add(New DataColumn("Column1", GetType(Integer)))
dtb1.Columns.Add(New DataColumn("Column2", GetType(Integer)))
dtb1.Columns.Add(New DataColumn("Column3", GetType(Single)))
dtb1.Columns.Add(New DataColumn("Column4", GetType(String)))
dtb1.Columns.Add(New DataColumn("Column5", GetType(String)))
dtb1.Rows.Add(1, 1, 1.1, "1", "5")
dtb1.Rows.Add(2, 2, 2.2, "2", "4")
dtb1.Rows.Add(3, 3, 3.3, "3", "3")
dtb1.Rows.Add(4, 4, 4.4, "4", "2")
dtb1.Rows.Add(5, 5, 5.5, "5", "1")
dtb1.Rows.Add(11, 11, 11, "11", "11")
Dim strOutput(dtb1.Rows.Count - 1, dtb1.Columns.Count - 1) As String '(row,col)
For intRow As Integer = 0 To dtb1.Rows.Count - 1
For intCol As Integer = 0 To dtb1.Columns.Count - 1
strOutput(intRow, intCol) = CStr(dtb1.Rows(intRow).Item(intCol))
Next intCol
Next intRow或者您可以使用一个列表( String())而不是二维数组：
Dim lstOutput As New List(Of Object()) From {dtb1.Rows(0).ItemArray, dtb1.Rows(1).ItemArray, dtb1.Rows(2).ItemArray}页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/6353784
复制相关文章
相似问题
腾讯云开发者
