Select Case e.DataCol.name Case "物料编号" DataTables("库存表").ReplaceFor("是否领取", "已领取", "物料编号 in ('" & e.DataRow("物料编号").Replace(",", "','") & "')") Dim nms() As String = e.DataRow("物料编号").Split(",") e.DataRow("领取数量") = nms.Length e.DataRow("物料成本") = DataTables("库存表").Compute("sum(物料成本)", "物料编号 in ('" & e.DataRow("物料编号").replace(",", "','") & "')") If e.NewValue IsNot Nothing Then SystemReady = False For i As Integer = 0 To nms.Length - 1 Dim nr As Row = Tables("出库表").AddNew() nr("物料编号") = nms(i) Dim fdr As DataRow = DataTables("库存表").Find("物料编号 = '" & nms(i) & "'") If fdr IsNot Nothing Then nr("物料信息") = fdr("物料信息") End If Next SystemReady = True End If End Select
|