添加一个模块
然后在模块中定义一个定时器就行了呀
这是我的代码看看
Dim WithEvents Timer1 As New Timers.Timer
Private Sub Timer1_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
Dim aa As Integer
Dim bb As Long
For aa = 0 To PublicDataTable(1).Rows.Count - 1
If PublicDataTable(1).Rows(aa).Item("你的字段") = 1 Then
bb+=1
If bb > 50 Then
你的代码...
End If
End If
Next
End Sub