主题：[求助]这是计划管理中的代码，为何会出现这样的情况？

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

非常感谢！