如下代码，参考帮助
If e.DataCol.Name = "本次数量" Then
If e.DataRow.IsNull("工程名称") = False AndAlso e.DataRow.IsNull("产品编号") = False _
AndAlso e.DataRow.IsNull("本次数量") = False AndAlso e.DataRow.IsNull("第几次采购") = False Then
Dim sum As Double = e.DataTable.Compute("Sum(本次数量)","工程名称 = '" & e.DataRow("工程名称") & "' And 产品编号 = '" & _
e.DataRow("产品编号") & "' And 第几次采购 <= '" & e.DataRow("第几次采购") & "'")
e.DataRow("剩余数量") = e.DataRow("预算数量") - sum
End If
Else If e.DataCol.Name = "本次单价" Then
If e.DataRow.IsNull("工程名称") = False AndAlso e.DataRow.IsNull("产品编号") = False _
AndAlso e.DataRow.IsNull("本次数量") = False AndAlso e.DataRow.IsNull("第几次采购") = False Then
Dim sum As Double = e.DataTable.Compute("Sum(本次总价)","工程名称 = '" & e.DataRow("工程名称") & "' And 产品编号 = '" & _
e.DataRow("产品编号") & "' And 第几次采购 <= '" & e.DataRow("第几次采购") & "'")
e.DataRow("差额") =- e.DataRow("预算总价") + sum
End If
Else If e.DataCol.Name = "产品编号" Then
Dim fdr As DataRow = DataTables("材料费预算表").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
If fdr IsNot Nothing Then
e.DataRow("预算数量") = fdr("数量")
Else
e.DataRow("预算数量") = 0
End If
End If
加好友 
发短信
Post By：2013/10/15 21:32:00 [显示全部帖子]
