专家坐堂-[求助]后台数据处理Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name

Case "收入","支出"

For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))

Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))

Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))

dr("结余") = Val1 - Val2

End Select

但数据太多, 我设定按条件加载行, 所有以改用以下代码, 但发现以下代码不执行任何计算, 请帮忙看下问题出来哪?

(数据源为Access)

Select Case e.DataCol.Name

Case "收入","支出"

For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))

Dim Val1 As Double = e.DataTable.SQLCompute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))

Dim Val2 As Double = e.DataTable.SQLCompute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))

dr("结余") = Val1 - Val2

End Select