谢谢，可以了，但改循环后，请出现以下的错误，麻烦一下。
Dim con As Integer = DataTables("表A").Compute("sum(数量)","产品名称='" & Tables("表A").current("产品名称") & "' and _sortkey < " & Tables("表A").current("_sortkey"))
Dim s As String = ""
Dim drs As List(Of DataRow) = DataTables("表B").Select("产品名称= '" & Tables("表A").current("产品名称") & "'","出货日期")
Dim dtre As DataTable
For Each dr As DataRow In dtre.DataRows
Dim sl As Integer = Tables("表A").current("数量")
Do While drs.Count > 0
dr = drs(0)
If con >= dr("数量") Then
con = con - dr("数量")
Else
Dim c1 As Integer = dr("数量") - con
con = 0
If s > "" Then s = s & " + "
If c1 >= sl Then
s = s & dr("出货日期") & " /" & sl & "pc" & IIF(s.Contains("+"),"s","")
Exit Do
Else
s = s & dr("出货日期") & " /" & c1 & "pcs"
sl = sl - c1
End If
End If
drs.RemoveAt(0)
Loop
Tables("表A").current("出货日期备注") = s
Next
此主题相关图片如下：捕获2.png
加好友 
发短信
Post By：2021/5/22 15:44:00 [只看该作者]
