导入窗口中导入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导入窗口中导入问题

共有4283人关注过本帖树形打印复制链接主题：导入窗口中导入问题

Bin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/3/11 17:30:00 [显示全部帖子]

你这个代码应该写到上面的循环遍历中去.

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/3/11 17:38:00 [显示全部帖子]

If Tables("采购主表.采购明细表").rows.Count > 0 Then

For Each r1 As Row In Tables("采购主表.采购明细表").GetCheckedRows

Dim dr As DataRow
dr = Tables("入库主表.入库明细表").DataTable.Find("排产序列号 = '" & e.NewValue & "'")

  If dr Is Nothing Then
        Dim r2 As Row = Tables("入库主表.入库明细表").AddNew
        r2("排产序列号") = r1("排产序列号")
        r2("采购单号") = r1("采购单号")
        r2("产品编号") = r1("产品编号")
        r2("数量") = r1("数量")
        r2("单价") = r1("单价")
        r2("单位") = r1("单位")
        'r2("产品编号") = r1("单位")

end if
    Next
    e.Form.close
Else
    MessageBox.Show("该笔订单无未下单项!")
End If