求，二维数组与datatable跟datagridview之间的配合

求，二维数组与datatable和datagridview之间的配合。
'数据源,这个不源于跨平台的数据，通过远程获取而来，一个\代表一个记录集
dim strdata as string="A|B|C|D|E|F|G|H|I\AA|BB|CC|DD|EE|FF|GG|HH|II"

'data控件名称
DataGridView1,这里面有9个字段

需求：

我想把strdara里面的数据分成多行(这里只有一个\，所以只需要两行)显示在 DataGridView1 里面,求解。

要求：循环的时候用 For Each

另，请贴出完整的测试代码。



------解决方案--------------------
手动写的代码，没测试，你试试吧

dim dt as new DataTable("Table1")

for i as integer=1 to 9 '增加9列

  dt.Columns.Add(new DataColumn("列" & i))

next


dim strdata as string="A
------解决方案--------------------
B
------解决方案--------------------
C
------解决方案--------------------
D
------解决方案--------------------
E
------解决方案--------------------
F
------解决方案--------------------
G
------解决方案--------------------
H
------解决方案--------------------
I\AA
------解决方案--------------------
BB
------解决方案--------------------
CC
------解决方案--------------------
DD
------解决方案--------------------
EE
------解决方案--------------------
FF
------解决方案--------------------
GG
------解决方案--------------------
HH
------解决方案--------------------
II"

dim arrData() as string=strdata.Split("\")

for each data as string in arrData '行循环

   dim arr() as string=data.Split("
------解决方案--------------------
")

   dim dr as datarow = dt.NewRow()

   for i as integer=0 to 8 '列赋值

     dr(i)=arr(i)

   next

   dt.Rows.Add(dr)

next


'绑定到datagridview上

dataGridView1.DataSource = dt

dataGridView1.AutoGenerateColumns = true