在timertick事件写代码
http://www.foxtable.com/webhelp/scr/1301.htm
Dim t as Table = e.form.controls("Table1").Table
e.form.controls("textBox1").Text = t.compute("sum(数量)")
e.form.controls("textBox2").Text = t.compute("sum(金额)")