主题：新手求教

看了几天帮助还是晕乎乎的，下面一个很菜的问题如何解决，请大虾们赐教，谢谢！

Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("","第一列") '假设此时的集合为A,B,C
'现在想将A,B,C写入到表B第一到第三行中
For Each dr As Datarow In drs
    '这里的代码怎么写
Next

With Tables("表A")
For n As integer = 0 To .Rows.Count - 1      
    Tables("表B").Rows(0)(n) = .rows(n)("第一列")
next
end with

谢谢！
不过你的解答和我的要求有很大的差距。

呵，看错了，是看成写到第1到第3列了。

With Tables("表A")
For n As integer = 0 To .Rows.Count - 1      
    Tables("表B").Rows(n)(0) = .rows(n)("第一列")
next
end with 

谢谢你的热心帮助！
可能我说的不是很清楚，其实我并不是想将表A第一列中所有数据都写入到表B第一列中，一楼代码Select还有条件，所以说我只想将符合条件的数据写入到表B表第一列中。

下面的图能说明问题，Output返回值就是要写入表B的数据。


此主题相关图片如下：请教.bmp

Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("[第二列] ='d'","第一列")
For Each dr As Datarow In drs
For n As integer = 0 To drs.Count - 1      
    Tables("表B").Rows(n)(0) = Tables("表A").rows(n)("第一列")
next
Next

上面的应写错（还要修改） 或用数组：


Dim Names As New List(Of String)
Dim suzhu() As String '定义数组
Dim bfrows As List(Of Datarow)
bfrows = DataTables("表A").Select("[第二列] ='a'","第一列")
for each bfrow as datarow in bfrows
  Names.Add(bfrow("第一列"))
next
suzhu = Names.ToArray()
For n As integer = 0 To suzhu.Length - 1      
    Tables("表B").Rows(n)(0) = suzhu(n)
next

或者参考下这个，虽是报表，但转为表也1样的。

http://www.foxtable.com/dispbbs.asp?boardid=2&Id=1233&page=2

谢谢！楼上的可以了。

这么麻烦啊，看来我是学不会了。