For Each dr As DataRow In DataTables("统计表").DataRows
dr("金额") = DataTables("表B").Compute("Sum(金额)", "收支 = '" & dr("收支") & "' And 分类= '" & dr("分类") & "' ") + DataTables("表A").Compute("Sum(收入)", "收支 = '" & dr("收支") & " ' And 分类= '" & dr("分类") & "'")
dr("记录数") = DataTables("表B").Compute("count(金额)", "收支 = '" & dr("收支") & "' And 分类= '" & dr("分类") & "' ") + DataTables("表A").Compute("count(收入)", "收支 = '" & dr("收支") & " ' And 分类= '" & dr("分类") & "' ")
Next