vb.net二维数组赋值 vb 二维数组 赋值

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

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

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.net 如何给二维数组赋值 我要第一维存值，第二维存值的位置(像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文件在vb.net二维数组赋值：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中vb.net二维数组赋值的500×2的数据已读入到数组A()中vb.net二维数组赋值，以下可以添加vb.net二维数组赋值你要运算的代码。

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

End Sub

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

for i =0 to ...

for j =0 to ...

keyarray(i,j)=

next

next

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

关于vb.net二维数组赋值和vb 二维数组 赋值的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。