求助：关于多行复制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

因为你现在就是赋值当前的行啊

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

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

If dr Is Nothing Then

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

dr("物料编号") = r("物料编号")

dr("库位") = r("库位")

dr("唯一码") = r("唯一码")

Else

dr("物料编号") = r("物料编号")

dr("库位") = r("库位")

dr("唯一码") = r("唯一码")

End If

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