Dim flt As String
Dim drs As List(Of DataRow)
flt = "接收人 = '" & _UserName & "' And 接收时间 Is Null"
drs = DataTables("内部通知").AppendLoad(flt,False)
Dim s As Integer = DataTables("内部通知").compute("count(_Identify)","接收人 = '" & _UserName & "' and 接收时间 Is Null")
If s>0 Then
Vars("sd") = s
Forms("提醒窗口").Open(SysInfo.WorkingAreaWidth-580,SysInfo.WorkingAreaHeight)
MyTimers("计划1").Enabled = False
For i As Integer = 1 To 330
Forms("提醒窗口").setbounds(SysInfo.WorkingAreaWidth-580,SysInfo.WorkingAreaHeight-i,580,300)
Next
End If
此主题相关图片如下:qq截图20140702075041.png