软件在局域网内3台电脑同时使用,数据库为Access外部数据源,主机共享数据库。已设置everyone和Guest读写权限
设置以下TimerTick代码事件之前运行正常,设置以后报错
1.主界面窗口计时器:
间隔:60000
代码:
DataTables("库存表").Load
2.销售查询窗口计时器:
间隔:6000
代码:
Dim id As Integer = DataTables("销售订单").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("销售订单").AppendLoad(Filter, False)
3.报价单查询窗口
间隔:5000
Dim id As Integer = DataTables("报价单").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("报价单").AppendLoad(Filter, False)
4.PVC查询窗口
间隔:20000
Dim id As Integer = DataTables("PVC_Calculate").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("PVC_Calculate").AppendLoad(Filter, False)
5.Skirtting查询窗口
间隔:5000
If Forms("Order Query").opened Then
Dim id As Integer = DataTables("Skirtting").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("Skirtting").AppendLoad(Filter, False)
End If
数据库所在电脑报错信息如下:
此主题相关图片如下:屏幕截图 2021-03-01 110557.png

此主题相关图片如下:屏幕截图 2021-03-01 143351.png

此主题相关图片如下:屏幕截图 2021-03-01 131440.png

不是一直出现,偶尔交替出现以上错误,而且软件会死机,只能在电脑任务管理器中结束任务,并重新登录才能使用。
是不是因为计时器窗口太多有冲突引起的?需要怎么调整,请帮我看看,谢谢!