vb点虐 二维数组赋值 vb 二维数组 赋值

如何在VB.NET中将二维数组赋值给listview控件啊，谢谢

将二位数组转成DataTable，网上找的不知道成不成

我们提供的服务有：成都做网站、成都网站建设、微信公众号开发、网站优化、网站认证、阎良ssl等。为千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的阎良网站制作公司

public static DataTable ConvertToDataTable(string[,] arr)

{

DataTable dataSouce = new DataTable();

for (int i = 0; i arr.GetLength(1); i++)

{

DataColumn newColumn = new DataColumn(i.ToString(), arr[0, 0].GetType());

dataSouce.Columns.Add(newColumn);

}

for (int i = 0; i arr.GetLength(0); i++)

{

DataRow newRow = dataSouce.NewRow();

for (int j = 0; j arr.GetLength(1); j++)

{

newRow[j.ToString()] = arr[i, j];

}

dataSouce.Rows.Add(newRow);

}

return dataSouce;

}

vb点虐 如何给二维数组赋值 我要第一维存值，第二维存值的位置(像excel一样) 该怎么做，谢谢！

Dim xlsApp As Excel.Application

Dim xlsBook As Excel.Workbook

Private Sub Command1_Click()

Dim I, J As Integer

Dim A(500, 2)

Set xlsApp = Excel.Application

xlsApp.Visible = False

'假设Excel文件在：D:\Book1.xls

Set xlsBook = xlsApp.Workbooks.Open("D:\Book1.xls")

For I = 1 To 500

For J = 1 To 2

A(I - 1, J - 1) = xlsapp.cells(I, J)

Next J

Next I

'以下是退出Excel

xlsBook.Close (False)

xlsApp.Quit

Set xlsApp = Nothing

'=================================

'Excel中的500×2的数据已读入到数组A()中，以下可以添加你要运算的代码。

'=================================

End Sub

vb 二维数组赋值并读取？

结论：数组声明方式和访问方式不同导致。

先贴一个测试通过的数组遍历方式的代码：

二维数组遍历

注意遍历使用的方法，两层数据，每次的访问方式，是直接对该元素数组填写索引值获取。

所以你的正确访问方式是：

Debug.Print d(1)(1)

补充知识：为什么使用二维数组的方式访问不到？

因为这与数组的声明方式有关。本题目中使用 Dim d 的方式，声明了一个variant类型的变量。

variant data type

接着赋值的时候，给与了一个二维数组，所以范文方式必须与赋值方式持平。

如何正确使用一个二维数组？

官方文档给出的方式，是显式声明数组的维度，并挨个赋值。VB就是这样。比如下面的示例：

二维数组的声明和使用

写在最后

总而言之，使用明确的数据类型声明二维数组，是根据索引正确访问数组的关键。

我是@程序员小助手，持续分享编程知识，欢迎关注。

VB.NET 动态二维数组如何循环赋值和取值

for i =0 to ...

for j =0 to ...

keyarray(i,j)=

next

next

双重循环，赋值和读取一样