Select Case e.DataCol.Name
Case "无税金额","供应名称","会计年月","fa piao号"
If e.DataRow.IsNull("供应商名称") OrElse e.DataRow.IsNull("会计年月") OrElse e.DataRow.IsNull("fa piao号") Then
Else
Dim filter As String = "供应商名称='" & e.DataRow("供应商名称") & "' and 会计年月='" & e.DataRow("会计年月") & "' and fa piao号='" & e.DataRow("fa piao号") & "'"
Dim vl As Double = e.DataTable.Compute("sum(合计金额)",filter)
Dim dr100 As DataRow = e.DataTable.Find(filter,"[_Identify] desc")
e.DataTable.ReplaceFor("fa piao金额",Nothing,filter)
If dr100 IsNot Nothing Then
dr100("fa piao金额") = vl
End If
End If
End Select
加好友 
发短信
Post By：2016/11/1 8:22:00 [只看该作者]
