Select Case e.DataCol.Name
Case "采购订单明细号"
Dim dr As DataRow = e.DataRow
dr("采购_入库数量") = DataTables("材料入库明细表").sqlCompute("sum(数量)","采购订单明细号 = '" & dr("采购订单明细号") & "'")
End Select
加好友 
发短信
Post By：2016/12/20 21:13:00 [显示全部帖子]
