主题：跨表统计

切换表计算一次就行了。

7楼的问题。

收支明细表DataColChanged事件

Select Case e.DataCol.name
    Case "项目名称","项目子项"
        If e.DataRow.IsNull("项目名称") = False And e.DataRow.IsNull("项目子项") = False
            Dim dr As DataRow = DataTables("项目总体").Find("项目名称 = '" & e.DataRow("项目名称") & "' and 项目子项 = '" & e.DataRow("项目子项") & "'")
            If dr Is Nothing Then
                Dim r As Row = Tables("项目总体").AddNew
                r("项目名称") = e.DataRow("项目名称")
                r("项目子项") = e.DataRow("项目子项")
            End If
        End If
End Select