先看几遍:http://www.foxtable.com/webhelp/topics/2925.htm
正确用法
Case "工程量_计"
Dim now_code As String = e.DataRow("归类")
Dim idx As Integer = Tables("预计总成本").FindRow(e.DataRow)
Dim t_r As Row = Tables("预计总成本").rows(idx).parent
If t_r IsNot Nothing Then
t_r("工程量_数量") = DataTables("预计总成本").Compute("sum(工程量_数量)", "归类 = '" & now_code & "' and 工程量_计 = true " )
End If
其它地方请自行改正