如何将二维数组转换成DataTable

[qinamao]

有一二维数组；
nstr[20,20]
如何转换成DataTable dt;
?

[qinamao]

已解决,谢谢诸位

[snowjin78]

考，太不公平了。

[blackcatiii]

DataTable无非就是DataColumn和DataRow的组合，你用for循环两次就可以了。

[qinamao]

这个我也知道，能详细点吗？好象不是光赋值这么简单。

[snowjin78]

没想到还有这么多分留给我，楼主赶快结贴。
Dim str As String(,) = {{"0", "1", "6d5325ds"}, {"2", "3", "452dfg"}}
Dim mytab As New DataTable("mytab")
Dim myrow As DataRow
Dim mycol As DataColumn
mycol = New DataColumn("field1", GetType(System.String))
mytab.Columns.Add(mycol)
mycol = New DataColumn("field2", GetType(System.String))
mytab.Columns.Add(mycol)
mycol = New DataColumn("field3", GetType(System.String))
mytab.Columns.Add(mycol)
Dim i, j As Integer
For i = 0 To 1
myrow = mytab.NewRow
For j = 0 To 2
'Response.Write(str(i, j))
myrow(j) = str(i, j)
Next
mytab.Rows.Add(myrow)
Next
DataGrid1.DataSource = mytab
DataGrid1.DataBind()

[ubc]

我想楼主要的是如下代码：

DataTable dt=new DataTable("result");
DataSet ds=new DataSet();
ds.Tables.Add(dt);

System.Data.DataRow dr;

for(i=0;i<20;i++)
{
dt.Columns.Add(nstr[0,i],System.Type.GetType("System.String"));
}

for(i=0;i<20;i++)
{
dr=ds.Tables["result"].NewRow();
for(j=0;j<lnum;j++)
{
dr[j]=nstr[i,j];
}
ds.Tables["result"].Rows.Add(dr);
}