主题：求助!! 出勤表進度問題

 回复30楼，你可以删除afteropenproject里面对应的代码的，测试一次便知

3Q!! 有點甜

 

結論分享:

1.不可於initialize 中取用表的數據,因為table還未形成.

2.若要顯示statusbar 動態時間  Date.Now() ,必需於afteropenproject 及 systemidle 中加入代碼否則不會顯示 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:出勤作业ok.rar

請問：為什麼我加了用戶登錄窗口就錯誤了!!

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:出勤作业4.rar

第一点，你的登陆窗口的afterload事件有错误；

 

第二点，SystemIdle事件代码要改成下面的。

 

If Forms("用戶登錄").Opened = False Then
    Dim dt As Date = Today
    Dim nms() As String = {"Jan","Feb","Mar","Apr","May","June","July","Aug","Sept","Oct","Nov","Dec"}
    Dim wms() As String = {"Monday","Feb","Mar","Apr","May","June","July","Aug","Sept","Oct","Nov","Dec"}
   
    StatusBar.Message1 = "作业预计进度:"
    StatusBar.ProgressBar.Visible =True
    StatusBar.ProgressBar.Value =  _PDAY / _MDAY *100
    With CurrentTable
        Dim Str1 As String = ForMAT( _PDAY / _MDAY ,"#0.0%") & "   用户: " & _UserName & "        时间:" & Date.Now() & "  星期" & "日一二三四五六".Chars(Today.DayOfWeek) &  "  "& nms(dt.month - 1) & "  " & dt.day & "," & dt.year & "  [ 本月应出勤天数:" & _MDAY & "  已过天数:" & _PDAY & "  剩余出勤天数:" _
        & _MDAY - _PDAY & " ]"
        StatusBar.Message2 = Str1
    End With  
End If

If LastInputTickCount > 30000 Then      '控制用戶30秒沒動鍵盤關閉系統
    Syscmd.Project.Exit()
End If

'StatusBar.Message1= "正在统计"
'StatusBar.ProgressBar.Visible =True
'StatusBar.ProgressBar.Value = 50
'StatusBar.Message2= "50%"

 如下

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:出勤作业4.rar

3Q!!

但執行還是錯

 

此主题相关图片如下：err.jpg

你数据源没有弄对, 或者没有指定数据源, 或者数据源里没这个表.

 请看35楼例子。

 

 你请确认你的users表，是外部表。

用35楼 

此主题相关图片如下：err.jpg

 回复39楼，我直接打开35楼例子，测试正常。

 

 请自己，务必好好测试。