资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.net二维list vb list

VB.NET读取固定格式TXT文件数据为二维数组的方法

Dim rootlist() As String

成都创新互联的客户来自各行各业,为了共同目标,我们在工作上密切配合,从创业型小企业到企事业单位,感谢他们对我们的要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。专业领域包括成都网站设计、成都网站建设、外贸网站建设、电商网站开发、微信营销、系统平台开发。

Dim data(0, 0) As String

Dim tmp() As String

Dim listLengh As Int32

Dim I As Integer, II As Integer

rootlist = Split(IO.File.OpenText("C:/001.txt").ReadToEnd, vbCrLf)

listLengh = UBound(rootlist)

ReDim data(listLengh, 0)

For I = 0 To listLengh

tmp = Split(rootlist(I), ",")

ReDim Preserve data(listLengh, UBound(tmp))

For II = 0 To UBound(tmp)

data(I, II) = tmp(II)

Next

Next

For I = 0 To 2

For II = 0 To 2

MsgBox(data(I, II))

Next

Next

如何在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 二维数组问题

根据你的语句,上下标是确定的,所以定义语句修改为:

Dim ary(UBound(temp), 1) As String '声明二维数组

vb.net中datatable和arraylist间怎么相互转换?

可以把简单的思路跟你说一下

datatable转成arraylist的话

首先得明确你的datatable中有几列数据。如果按照通常的类似数据库数据的结构的数据的话,应该是要把datatable转成一个二维的arraylist。(如果是只有一列的datatable就可以省一步)

先实例化装最后结果的arraylist(arr1),接着实例化一个datarow(dt1),

把datatable里的每一行的数据

赋值到datatrow(dt1)中,之后创建一个arraylist(arr2),把datarow(dt1)中的数据遍历到这个arraylist(arr2)中,之后把arraylist(arr2)做为一个元素add进arraylist(arr1),也就是形成一个二维的arraylist。

arraylist转成datatable的话

同样是以二维arraylist为例,先遍历第一层arraylist,实例化一个datarow(dt1),之后遍历第二层arraylist,把第二层的数据赋值到dt1中,之后

把dt1添加到datatable中,即可。

只是说了一个大概的思路,希望对你有帮助!


网页名称:vb.net二维list vb list
分享网址:http://cdkjz.cn/article/dosipjh.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

业务热线:400-028-6601 / 大客户专线   成都:13518219792   座机:028-86922220