'根据项目编号统计开piao金额和回款金额
If e.DataCol.Name = "项目编号" Then
Dim Filter As String = "[项目编号] = '" & e.DataRow("项目编号") & "'"
e.DataRow("累计开piao金额") = DataTables("项目开piao信息表").Compute("Sum(含税金额)", filter)
e.DataRow("累计回款金额") = DataTables("项目回款信息表").Compute("Sum(回款金额)", filter)
End If
当开piao信息表中还没有对应项目编号的开piao数据时,就会有提示:,想要去掉这个提示。