写到timertick事件
http://www.foxtable.com/webhelp/scr/1301.htm
比如,代码
Dim sum1 = Tables("表A").compute("sum(库存)")
Dim sum2 = Tables("表B").compute("sum(欠货数量)")
e.form.controls("textbox1").text = sum1+sum2