以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：关于多行复制  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47841)
--  作者：hz1717
--  发布时间：2014/3/18 14:30:00
--  求助：关于多行复制
老师好：
     我在窗口界面的   一个 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
--  作者：Bin
--  发布时间：2014/3/18 14:33:00
--  
因为你现在就是赋值当前的行啊

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
next