timertick事件,定时统计赋值
http://www.foxtable.com/webhelp/scr/1301.htm
e.Form.Controls("TextBox1").Text = Tables("表名").Compute("sum(产量)")