试试写到systemIdle
If CurrentTable isnot nothing then Dim s As String s = "当前表:" & CurrentTable.Name & space(4) s = s & "记录数:" & CurrentTable.Count StatusBar.Message1 = sEnd If