主题：[求助]select获得excel中一列数据怎么放到另一个表中

 恩。。老师 
Tables("表A").addnew
这个是每次新增行，有没有办法直接从第一行覆盖粘贴

Dim drs As List(of DataRow)
drs = DataTables("sheet1").Select("[光功率管理]= '6001' and [F4] = '1(IN)'")
If drs.count > Tables("复制").rows.count Then
    Tables("复制").addnew(drs.count-Tables("复制").rows.count)
End If
For i As Integer = 0 To drs.count-1
    Dim nr As Row = Tables("复制").rows(i)
    Dim dr As DataRow = drs(i)
    nr("某列") = dr("某列")
    nr("某列") = dr("某列")
Next

 谢谢老师！

Dim drs2 As List(of DataRow)
Dim id As integer
For id = 6011 To 6026
drs2 = DataTables("光功率管理").Select("[网元ID] = id")      老师 我这里想要循环取出值，但是提示未找到列【id】
If drs2.count > Tables("表A").rows.count Then
    Tables("表A").addnew(drs2.count-Tables("表A").rows.count)
End If
For i As Integer = 0 To drs2.count-1
    Dim nr2 As Row = Tables("表A").rows(i)
    Dim dr2 As DataRow = drs2(i)
    nr2("第一列") = dr2("网元ID")
    nr2("第二列") = dr2("子架ID").substring(dr2("子架ID").length - 2)
    nr2("第三列") = dr2("单板名称")
    nr2("第四列") = dr2("端口")
    nr2("第五列") = dr2("输入光功率")
    nr2("第六列") = dr2("输出光功率")
Next
Dim a As String= "日期20130411"
Dim max As Double = 0
Dim pdr As DataRow
Dim drs As List(of DataRow)=DataTables("表A").Select("")
For Each dr As DataRow In drs
    Dim n = dr("第六列")
    If n = "-" Then
     Continue For
    End If
    If n > max Then
        pdr = dr
        max = n
    End If
Next
output.Show(max)
Tables("a")(3,5) = max
DataTables("表A").DeleteFor("[网元ID] = id")
next       

drs2 = DataTables("光功率管理").Select("[网元ID] = " & id) 

 好了 谢谢老师！