全部积分求教各位高手！

aioliadl

求教各位高手，如何在主窗体做到如下功能，判断在表ht中的shzt=1的字段数若大于0，则弹出对话框（或类似的popotip控件），内容：您有——条任务需要处理（任务条数根据shzt=1的字段数动态变化）；若shzt=1的字段数为0，则对话框不弹出。此操作每15分钟自动进行一次....


小弟在此求教啦！望高手指点....

Henry D. Sy

1. Private Sub Form_Load()
   
2.     Me.TimerInterval = 900000
   
3.     test
   
4. End Sub
   
5. Sub test()
   
6.     Dim intCount As Integer
   
7.     Dim Criteria As String
   
8.     Criteria = "val(shzt)=1"
   
9.     intCount = DCount("*", "ht", Criteria)
   
10.     If intCount > 0 Then
    
11.         MsgBox "您有 " & intCount & " 条任务需要处理"
    
12.     End If
    
13. End Sub
    
14. 
    
15. Private Sub Form_Timer()
    
16.     test
    
17. End Sub
    
18. 
    

复制代码

aioliadl

Henry D. Sy 发表于 2012-2-13 16:02

感谢高手！

wtmswxl

感谢高手