Select Case e.DataCol.Name
Case "供应商名称","会计年月" '加入无税金额和税率的目的是,当无税金额或税率改变时,fa piao金额变化.
If e.DataRow.IsNull("供应商名称") OrElse e.DataRow.IsNull("会计年月") Then
Else
Dim filter As String = "供应商名称='" & e.DataRow("供应商名称") & "' and 会计年月='" & e.DataRow("会计年月") & "'"
Dim vl As Double = e.DataTable.Compute("sum(当月汇总金额)",filter)
Dim dr1 As DataRow = e.DataTable.Find(filter,"[_Identify] desc")
e.DataTable.ReplaceFor("fa piao金额",Nothing,filter)
If dr1 IsNot Nothing Then
dr1("fa piao金额") = vl
End If
End If
End Select
加好友 
发短信
Post By：2016/11/16 14:50:00 [显示全部帖子]
