timertick事件
e.Form.Controls("TextBox1").Text = e.Form.Controls("Table1").Table.compute("sum(总价)")
开启timertick
http://www.foxtable.com/help/topics/1301.htm