老师,下面代码进行计算总是要去打开数据汇总表后才能统计。
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