老师，下面代码进行计算总是要去打开数据汇总表后才能统计。
If e.DataCol.Name = "项目ID" OrElse e.DataCol.Name = "项目" Then
For i As Integer = 1 To 12
Dim Filter As String = e.DataRow("项目") & "_ID = '" & e.DataRow("项目ID") & "' and 月=" & i
Dim d As Double = DataTables("数据汇总").Compute("Sum(" & e.DataRow("项目") & "_应付)", Filter)
'msgbox("条件=" & Filter & ", 查询结果=" & d)
e.DataRow("M" & i) = d
Next
End If
数据汇总是三个表的数据汇总
If MainTable.Name = "数据汇总" Then
MainTable.StopRedraw
MainTable.DataTable.DeleteFor("")
For Each dr As DataRow In DataTables("抄表记录").Select("抄表日期 Is not null")
Dim nr As Row = MainTable.AddNew
nr("日期") = dr("抄表日期")