以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  时间显示代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14644)
--  作者：lsf5138
--  发布时间：2011/11/27 14:55:00
--  时间显示代码

帮我在里面个系统时间

 

系统事件SystemIdle

 

With CurrentTable
    Dim Str1 As String = "操作用户: " & User.Name
    Str1 = Str1 & " 表名: " & .Name & " 总行数: "
    Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)
    StatusBar.Message1 = Str1
End With
--  作者：yangming
--  发布时间：2011/11/27 15:30:00
--  
Str1 = Str1 & " 当前时间: " & Date.Now()
[此贴子已经被作者于2011-11-27 15:36:06编辑过]