主题：求助：关于多行复制

老师好：

     我在窗口界面的   一个 BUTTON 按钮中写下了如下代码。

     我原来希望 在点击这个按钮后，以“入库主表。入库明细表”中的行，，到“库存表”中去寻找  是否有 “物料编号”、“库位”、“唯一码”  都一致的行，

     如果存在就不需要添加，如果不存在，则在“库存表”中增加  对应的行。

     但是，我现在写出来的代码，只复制了光标所在的那一行。如何修改

 Dim dr As DataRow = DataTables("库存表").Find("物料编号 = '" & Tables("入库主表.入库明细表").Current("物料编号") & "' and 库位 = '" & Tables("入库主表.入库明细表").Current("库位") & "' and 唯一码 = '" & Tables("入库主表.入库明细表").Current("唯一码") & "'")

    If dr Is Nothing Then

        dr = DataTables("库存表").AddNew()

        dr("物料编号") = Tables("入库主表.入库明细表").Current("物料编号")

        dr("库位") = Tables("入库主表.入库明细表").Current("库位")

        dr("唯一码") = Tables("入库主表.入库明细表").Current("唯一码")

    Else

        dr("物料编号") = Tables("入库主表.入库明细表").Current("物料编号")

        dr("库位") = Tables("入库主表.入库明细表").Current("库位")

        dr("唯一码") = Tables("入库主表.入库明细表").Current("唯一码")

        

    End If

for each r as row in Tables("入库主表.入库明细表").rows

next