标题：[求助]这段代码错在何处

for  i as Integer = 0 to tables("表A").rows.Count-1
    Dim Names() As String
    Names = tables("表A").rows(i)("第一列")
    for each Name as String in Names
        Output.Show(Name(0))
        Output.Show(Name(1))
    next
next
以数组的形式分别提取第一列中的内容

第一列是什么内容？ 
字符串值 不可能智能的转换为数组

必须指定一个分隔符 才能把字符串转成数组 
帮助里面搜索一下split

Dim Ns As String
for  i as Integer = 0 to tables("表A").rows.Count-1
    Ns = Ns & "|" & tables("表A").rows(i)("第一列")
next
Ns=Ns.trim("|")
Dim Names() As String
Names = Ns.split("|")
Output.Show(Names(0))
Output.Show(Names(1))

谢谢

你应该不是要我4楼那样的东东吧，要是这样不如直接：
output.show(tables("表A").rows(0)("第一列"))
output.show(tables("表A").rows(1)("第一列"))
来得简单？