开piao回款统计表
If e.DataCol.Name = "项目编号" Then
Dim Filter As String = "[项目编号] = '" & e.DataRow("项目编号") & "'"
e.DataRow("累计开piao") = DataTables("项目开piao信息表").Compute("Sum(含税金额)", filter)
End If
项目开piao信息表
Select Case e.DataCol.Name
Case "含税金额", "项目名称"
Dim pr As DataRow
pr = DataTables("开piao回款统计表").Find("项目编号 = '" & e.DataRow("项目编号") & "'")
If pr IsNot Nothing Then
DataTables("开piao回款统计表").DataCols("项目编号").RaiseDataColChanged(pr)
End If
End Select
如果清空项目开piao信息表的项目名称单元格内容，或者整行清除内容，统计表中的数累计开piao数据无变化。请教该如何写代码