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

1、你获得数据的代码怎么写的？贴出代码；

2、具体一点你的问题。

没看懂你代码表达的意思。

举例说明运算逻辑，比如取出什么值，做什么处理，然后添加到哪里？具体举一个实例说明。

没看懂你逻辑，如果是根据末尾判读大小，这样判断

'查询数据
Dim drs As List(of DataRow)=DataTables("sheet1").Select("[网元名称]='6011' and [端口]='4(out)'")
'获取数据里面【id】末位最大的那一行
Dim max As Integer = 0
Dim pdr As DataRow
For Each dr As DataRow In drs
    Dim n = dr("槽位id").split("-")(1)
    If n > max Then
        pdr = dr
        max = n
    End If
Next
msgbox(pdr("槽位id") & pdr("输出光功率(dBm)"))

看懂7楼代码，红色的就是你需要的

'查询数据
Dim drs As List(of DataRow)=DataTables("sheet1").Select("[网元名称]='6011' and [端口]='4(out)'")
'获取数据里面【id】末位最大的那一行
Dim max As Integer = 0
Dim pdr As DataRow
For Each dr As DataRow In drs
    Dim n = dr("槽位id").split("-")(1)
    If n > max Then
        pdr = dr
        max = n
    End If
Next
msgbox(pdr("槽位id") & pdr("输出光功率(dBm)"))

如果你需要赋值到另一个表，参考 http://www.foxtable.com/webhelp/scr/1533.htm

那说明你条件有问题，试试改成

For Each dr1 As DataRow In DataTables("sheet1").Select("")

select函数肯定没问题，你条件有问题、或者数据有问题。比如，你的数据，可能有多余的你看不见的空格，建议你处理一下数据，或者新增一行数据测试。

For Each dr1 As DataRow In DataTables("sheet1").Select("[光功率管理] = '6001'")

如果要导入表，要这样写代码

http://www.foxtable.com/webhelp/scr/0684.htm

如果要合并数据，就这样写

http://www.foxtable.com/webhelp/scr/0685.htm

如果要引用某一个excel的数据，参考

http://www.foxtable.com/webhelp/scr/2334.htm

汗，建议你先把帮助文档、视频教程看一遍吧。

Dim drs As List(of DataRow)
drs = DataTables("sheet1").Select("[光功率管理]= '6001' and [F4] = '1(IN)'")

For Each dr As DataRow In drs
    Dim nr As Row = Tables("复制").addnew
    nr("某列") = dr("某列")
    nr("某列") = dr("某列")
Next