'按fa piao录入自动汇总到fa piao录入汇总表中
Select Case e.DataCol.Name
Case "无税金额","供应商名称","会计年月","fa piao号","开piao日期"
If e.DataRow.IsNull("供应商名称") OrElse e.DataRow.IsNull("会计年月") OrElse e.DataRow.IsNull("fa piao号") OrElse e.DataRow.IsNull("开piao日期") Then
Else
Dim filter As String = 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
以上代码能实现,在fa piao录入表录入一条数据,能够汇总到fa piao汇总中。
但我想实现,如果fa piao录入表某个数据或全部数据清空,则fa piao汇总表中的相关数据也同时清空,编码怎么改。请各位老师帮忙。