各位大侠:
我做了个提醒项目,使用外表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
同样的代码写在内表中能够正常使用