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
将二位数组转成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;
}
根据你的语句，上下标是确定的，所以定义语句修改为：
Dim ary(UBound(temp), 1) As String '声明二维数组
可以把简单的思路跟你说一下
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中，即可。
只是说了一个大概的思路，希望对你有帮助!