主题：新手求教

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 

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

学得会，我也是从0起步，到现在慢慢能写得出1些代码，，，（但我每天所花的时间相对很多）