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