Select Case e.DataCol.Name
Case "无税金额","供应商名称","会计年月","fa piao号","开piao日期"
Dim filter As String
If e.DataRow.IsNull("供应商名称") OrElse e.DataRow.IsNull("会计年月") OrElse e.DataRow.IsNull("fa piao号") OrElse e.DataRow.IsNull("开piao日期") Then
Select Case e.DataCol.Name
Case "供应商名称"
filter = CExp("供应商名称 ='{0}' and 会计年月='{1}' and fa piao号='{2}' and 开piao日期='{3}'",e.OldValue ,e.DataRow("会计年月"),e.DataRow("fa piao号"),e.DataRow("开piao日期"))
Case "会计年月"
filter = CExp("供应商名称 ='{0}' and 会计年月='{1}' and fa piao号='{2}' and 开piao日期='{3}'",e.DataRow("供应商名称"),e.OldValue ,e.DataRow("fa piao号"),e.DataRow("开piao日期"))
Case "fa piao号"
其它列自己仿照改改
Case "开piao日期"
其它列自己仿照改改
End Select
Dim dr As DataRow = DataTables("fa piao录入汇总").Find(filter)
If dr IsNot Nothing Then dr.Delete
Else
filter = CExp("供应商名称 ='{0}' and 会计年月='{1}' and fa piao号='{2}' and 开piao日期='{3}'",e.DataRow("供应商名称"),e.DataRow("会计年月"),e.DataRow("fa piao号"),e.DataRow("开piao日期"))
Dim dr2 As DataRow = DataTables("fa piao录入汇总").Find(filter)
If dr2 Is Nothing Then
dr2 = DataTables("fa piao录入汇总").AddNew()
dr2("供应商名称") = e.DataRow("供应商名称")
dr2("会计年月") = e.DataRow("会计年月")
dr2("fa piao号") = e.DataRow("fa piao号")
dr2("开piao日期") = e.DataRow("开piao日期")
End If
dr2("fa piao金额") = e.DataTable.Compute("sum(合计金额)",filter)
End If
End Select
加好友 
发短信
Post By：2016/11/9 11:21:00 [显示全部帖子]
