以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  双击菜单按钮报错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129600)
--  作者：rogen
--  发布时间：2019/1/2 15:03:00
--  双击菜单按钮报错
菜单按钮命令是打开一个窗体，目前我是打开主窗体
主窗体里放了sqltable/querytable
单击菜单按钮，可以正常打开窗体
双击菜单，有时候会报错，说不存在sqltable
我自己测试时，知道菜单按钮单击即可，但用户不知道，双击了，报错了，尴尬了
窗体若只是打开，并不会报错，只要触发了对sqltable的读写（如currentchanged事件等）就可能报错
是可能报错，不是百分百报错，普通table表不报错的
写过2个项目，都有这个问题，狐表是最新版
请问怎样防止菜单按钮双击来避免这个错误呢？


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20190102145757.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/1/2 15:03:00编辑过]
--  作者：有点甜
--  发布时间：2019/1/2 15:40:00
--  

限制双击，如

 

1、可以禁用

 

e.sender.Enabled = false

 

\'执行代码

 

e.sneder.Enabled = True

 

2、可以延时

 

static ptime As Date = Nothing
Dim sp As TimeSpan = Date.now - ptime
ptime = Date.now
If sp.TotalMilliseconds < 5000  Then \'间隔5秒点击才有效
    Return
End If

 

\'本来的代码