主题：[求助]问题咨询 如何通过订单生成出库单

代码如下。但是，你的订单列表设计得不合理，理应由 物料编码 的才对

If Tables("订单列表").GetCheckedRows.count > 0 Then
    Dim max As String = DataTables("送货单主表").compute("max(送货单号)")
    Dim id As Integer
    If max > "" Then
        id =  CInt(right(max, 3)) + 1
    Else
        id = 1
    End If
    max = "sh" & Format(id, "000")
    Dim nr As Row = Tables("送货单主表").AddNew
    nr("送货单号") = max
    nr("送货单单日期") = Date.Today
    For Each r As Row In Tables("订单列表").GetCheckedRows
        If nr("客户名称").Contains(r("客户名称")) = False Then
            nr("客户名称") += r("客户名称") & ","
        End If
       
        Dim ncr As Row = Tables("送货单子表").AddNew
        ncr("送货单号") = max
        ncr("订单号") = r("订单号")
        ncr("数量") = r("数量")
        ncr("单价") = r("送货人")
    Next
    nr("客户名称") = nr("客户名称").Trim(",")
    Forms("送货单").Open()
    MainTable = Tables("送货单主表")
Else
    msgbox("请选择订单")
End If