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

就你那样设计可以的，计算的时候这样计算即可

http://www.foxtable.com/help/topics/0545.htm

如果没有数据，下面的代码不执行即可。

        msgbox("查無此 年度: " & mYYYY & " 月份: " & mMM &"")
        Return

呃，怎么理解你的问题？表达式不计算？

http://www.foxtable.com/help/topics/0602.htm

10楼已经给你答案了。空值是不运算的，你需要这样写表达式

IsNull(D1,0)+IsNull(D2,0)+IsNull(D3,0)...IsNull(D31,0)

 回复14楼，如果加载的行数是空行的话，就不要执行下面的代码了，自己调试一下。

http://www.foxtable.com/help/topics/1485.htm

 说一会儿东说一会儿西，做的例子不体现你所说的内容，谁知道你想改什么

 回复19楼，代码没有错，但是，不能把代码放在初始化事件，那时table没有生成。

 你要放在afteropenproject事件就对了。

 systemIdle事件

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"}

'wymd.text = dt.day & "-" & nms(dt.month - 1) & "-" & dt.year

StatusBar.Message1 = "作业预计进度:"
StatusBar.ProgressBar.Visible =True
StatusBar.ProgressBar.Value =  _PDAY / _MDAY *100
With CurrentTable
    Dim Str1 As String = ForMAT( _PDAY / _MDAY ,"#0.0%") & "   用户: tennis         时间:" & Date.Now() & "  星期" & "日一二三四五六".Chars(Today.DayOfWeek) &  "  " & nms(dt.month - 1) & "  " & dt.day & "," & dt.year & "  [ 本月应出勤天数:" & _MDAY & "  已过天数:" & _PDAY & "  剩余出勤天数:" _
    & _MDAY - _PDAY & " ]"
    StatusBar.Message2 = Str1
End With

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