timertick事件
http://www.foxtable.com/webhelp/scr/1301.htm
If CurrentTable IsNot Nothing Then Dim s As String s = "当前表:" & CurrentTable.Name & space(4) s = s & "记录数:" & CurrentTable.BottomPosition - CurrentTable.TopPosition + 1 StatusBar.Message1 = sEnd If