主题：同一种采购申请号只增加一行，不需要选中多少就增加多少行

Forms("采购单录入").Open()
Dim t As Table = Forms("采购单录入").Controls("订单明细").Table
For Each r As Row In Tables("转采购订单_采购申请明细").GetCheckedRows
    Dim i As Integer = t.FindRow("采购申请号='"& r("采购申请号") & "'")
    If i < 0 Then
        Dim r2 As Row = t.AddNew
        r2("材料编码") = r("材料编码")
        r2("材料描述") = r("材料描述")
        r2("规格型号") = r("规格型号")
        r2("刀具代码") = r("刀具代码")
        r2("采购人") = r("申请人")
        r2("采购日期") =  Date.Today
        r2("部门") = r("线别")
        r2("采购数量") = r("申请数量")
        r2("交货日期") = r("要求交货日期")
        r2("单位") = r("单位")
        r2("采购订单状态") = "进行中"
        r2("采购类型") = r("申请类型")
        r2("采购申请号") = r("采购申请号")
    End If
Next
Forms("采购单录入").Open()
Dim w As Table = Forms("采购单录入").Controls("订单录入").Table
For Each f As Row In Tables("转采购订单_采购申请明细").GetCheckedRows
   
    Dim i As Integer = w.FindRow("采购申请号='"& f("采购申请号") & "'")
    If i < 0 Then
        Dim s2 As Row  = w.AddNew
        s2("采购人") = f("申请人")
        s2("采购日期") =  Date.Today
        s2("部门") = f("线别")
        s2("交货日期") = f("要求交货日期")
        s2("采购类型") = f("申请类型")
        s2("采购申请号") = f("采购申请号")
    End If
Next