For Each dr1 As Row In Tables("业务订单").GetCheckedRows
Dim dr2 As Row = Tables("出库单.出库明细").AddNew() '以下三行把读到的记录按字段对应关系写入新表
dr2("产品名称") = dr1("产品名称")
dr2("单价") = dr1("单价")
dr2("业务单号") = dr1("业务单号")
For Each dr As DataRow In DataTables("订单附件").Select("[业务单号] = '" & dr1("业务单号") &"'")
' msgbox(dr("附件名称"))
Dim dr3 As Row = Tables("出库单_Table2").AddNew() '以下三行把读到的记录按字段对应关系写入新表
dr3("业务单号") = dr1("业务单号")
dr3("附件编号") = dr("附件编号")
dr3("附件类型") = dr("附件类型")
dr3("附件名称") = dr("附件名称")
dr3("客户") = dr("客户")
dr3("出库日期") = dr2("出库日期")
dr3("出库单号") = dr2("出库单号")
Next
Next
Tables("业务订单").ClearCheckedRows
e.Form.Close()