各位大侠：

     我做了个提醒项目，使用外表Access，目前打开后就报警，

    代码写在“计划管理”中，代码是：

Dim s As Integer = DataTables("message").compute("count(_Identify)","工事担当 = \'" & User.Name & "\'  And 处理状况 = false ")

If s>0 Then

    Vars("sd") = s

    Forms("窗口7").Open(SysInfo.WorkingAreaWidth-580,SysInfo.WorkingAreaHeight)

    MyTimers("计划1").Enabled = False

    For i As Integer = 1 To 330

        Forms("窗口7").setbounds(SysInfo.WorkingAreaWidth-580,SysInfo.WorkingAreaHeight-i,580,300)

    Next

End If

同样的代码写在内表中能够正常使用