主题：求助：下列代码 我想纠正加入一个条件

求助：下列代码 我想纠正加入一个条件 
实现报价信息表中项目编号字段下的设备名字进行筛选 然后全部加入领取单表中对应的设备名字字段    
求解决办法
谢谢
For i As Integer = 0 To DataTables("报价信息").DataRows.Count-1
    Dim r As Row = Tables("领取单").AddNew
    r("设备名字") = DataTables("报价信息").DataRows(i)("设备名字")
Next