Forms("转出库单").Open()
Dim t As Table = Forms("转出库单").Controls("销售").Table
For Each r As Row In Tables("待出库_发货明细").GetCheckedRows
If r("实发数量") > 0 Then
For i As Integer = 1 To r("实发数量")
Dim r2 As Row = t.AddNew
r2("下单日期") = r("下单日期")
r2("发货日期") = r("发货日期")
r2("客户编码") = r("客户编码")
r2("销售订单号") = r("销售订单号")
r2("成品编码") = r("成品编码")
r2("成品描述") = r("成品描述")
r2("毛坯产地") = r("毛坯产地")
r2("实发数量") = r("实发数量")
r2("未交订单数") = r("未交订单数")
r2("业务员") = r("业务员")
r2("计划确认") = r("计划确认")
r2("订单类型") = r("订单类型")
r2("当日数量") = r("当日数量")
Next
End If
Next