主题：请教关于查询表的设计

DataColChanged事件

Select Case e.DataCol.name
    Case "记账日期", "项目负责人"
        Dim fdr As DataRow = e.DataTable.Find("项目负责人 = '" & e.DataRow("项目负责人") & "' and 记账日期 < #" & e.DataRow("记账日期") & "#", "记账日期 desc")
        Dim filter As String
        If fdr Is Nothing
            filter = "领款时间 <= #" & e.DataRow("记账日期") & "# and 项目负责人 = '" & e.DataRow("项目负责人") & "'"
        Else
            filter = "领款时间 > #" & fdr("记账日期") & "# and 领款时间 <= #" & e.DataRow("记账日期") & "# and 项目负责人 = '" & e.DataRow("项目负责人") & "'"
        End If
        Dim sum1 = DataTables("项目费用支出表").compute("sum(借方)", filter)
        Dim sum2 = DataTables("项目费用支出表").compute("sum(贷方)", filter)
        e.DataRow("收入") = sum1
        e.DataRow("支出") = sum2
        e.DataRow("余额") = sum1-sum2
End Select