1、做一个定时器
http://www.foxtable.com/webhelp/scr/0657.htm
2、执行如下代码计算
Dim s1 = datatables("表a").compute("sum(收入)", "对账=true")
Dim s2 = datatables("表a").compute("sum(支出)", "对账=true")
msgbox(s1-s2)