Select Case e.DataCol.name
Case "交货数","订单号"
Dim dr As DataRow
dr = DataTables("订").Find("订单号 = '" & e.DataRow("订单号") & "'") '找出订单表中的订单
If dr IsNot Nothing Then
dr("已交数") = e.DataTable.Compute("sum(交货数)","订单号 = '" & e.DataRow("订单号") & "'")
Else
MessageBox.show("没有此订单,不能出货")
End If
End Select