先保存一下在调用上面的代码,SQLCompute只能统计已保存的数据,另外统计列不需要加单引号
DataTables("返工单").save
Dim i As Integer
Dim s As Integer = Tables("统计").Rows.Count
For i = 0 To s-1
Dim r As Row = Tables("统计").Rows(i)
r("单数") = DataTables("返工单").SQLCompute("Count(" & r("姓名") & ")")
r("用时") = DataTables("返工单").SQLCompute("Sum(" & r("姓名") & ")")
r("平均用时") = r("用时") / r("单数")
Next