Vars("当日实收款")=DataTables("业务受理表").Compute("Sum(实收款)","操作员= '受理1' And 日期 = #" & Date.Today & "#")
建议看看:
http://www.foxtable.com/help/topics/1284.htm