Dim i As Integer = 0
Dim dr As Row = Tables("发外加工计划表").AddNew
Dim rs As List(of Row) = Tables("发外加工计划表").GetCheckedRows
If rs.Count > 0 Then
dr("订单编号") = rs(0)("订单编号")
dr("外加工厂商") = rs(0)("外加工厂商")
dr("订单客户") = rs(0)("订单客户")
dr("品名") = rs(0)("品名")
dr("加工类型") = rs(0)("加工类型")
dr("发外重量") = rs(0)("发外重量")
dr.Save
For i As Integer = 1 To rs.Count - 1
If rs(i)("外加工厂商") = dr("外加工厂商") And rs(i)("订单客户") = dr("订单客户") And rs(i)("品名") = dr("品名") And rs(i)("加工类型") = dr("加工类型") Then
dr("订单编号") = dr("订单编号") & rs(i)("订单编号") & ","
dr("发外重量") = dr("发外重量") + rs(i)("发外重量")
End If
Next
End If
加好友 
发短信
Post By：2016/11/24 12:00:00 [显示全部帖子]
