主题：时间显示代码

帮我在里面个系统时间

系统事件SystemIdle

With CurrentTable
    Dim Str1 As String = "操作用户: " & User.Name
    Str1 = Str1 & " 表名: " & .Name & " 总行数: "
    Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)
    StatusBar.Message1 = Str1
End With