计时器
启用:True
间隔:30000
TimerTick
If Tables("记帐").Position < Tables("记帐").Rows.Count - 1 Then
Tables("记帐").Position + = 1
ElseIf Tables("记帐").Position = Tables("记帐").Rows.Count - 1 Then
Tables("记帐").Position = 0
End If
e.Form.Controls("TextBox1").Text = Tables("记帐").Current("日期")
[此贴子已经被作者于2014-4-2 15:50:19编辑过]