老师，如何改成窗口中的按钮代码？谢谢。
Select Case e.DataCol.Name
Case "产品名称","数量"
Dim con As Integer = e.DataTable.Compute("sum(数量)","产品名称='" & e.DataRow("产品名称") & "' and _sortkey < " & e.DataRow("_sortkey"))
Dim s As String
Dim drs As List(Of DataRow) = DataTables("表B").Select("产品名称= '" & e.DataRow("产品名称") & "'","出货日期")
Dim dr As DataRow
Dim sl As Integer = e.DataRow("数量")
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
e.DataRow("出货日期备注") = s
End Select
加好友 
发短信
Post By：2021/5/2 20:40:00 [只看该作者]
