'在状态栏显示用户名?表名?总行数?当前行位置,可以在SystemIdle中加入下面的代码:
With CurrentTable
Dim Str1 As String =""
Str1 = Str1 & " 今天是" & CLDate(Date.now)
Str1 = Str1 & " " & Format(Date.now,"dddd")
Str1 = Str1 & " 农历" & CLDate(New Lunar(Date.now).LunarDate)
'2015年4月17日农历2015年2月29日,因为农历无此日,所以当天会无法进入系统 ,去除上行代码正常启动
Str1 = Str1 & " 当前用户"& User.Name & "表名" & .Name & "总行数"
Str1 = Str1 & .Rows.Count & "之" & (.Position + 1) & "行 "
Str1 = Str1 & ""
StatusBar.Message1 = Str1
End With
请问如何用正确的代码能在状态栏显示农历日期