Foxtable(狐表)用户栏目专家坐堂 → 设置TimerTick代码后出错


  共有2315人关注过本帖平板打印复制链接

主题:设置TimerTick代码后出错

帅哥哟,离线,有人找我吗?
whx007
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:228 积分:2057 威望:0 精华:0 注册:2017/8/18 17:51:00
设置TimerTick代码后出错  发帖心情 Post By:2021/3/4 5:24:00 [只看该作者]

软件在局域网内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
图片点击可在新窗口打开查看

不是一直出现,偶尔交替出现以上错误,而且软件会死机,只能在电脑任务管理器中结束任务,并重新登录才能使用。

是不是因为计时器窗口太多有冲突引起的?需要怎么调整,请帮我看看,谢谢!




 回到顶部