- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]点太快会报错怎么处理 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124957)
-- 发布时间：2018/9/17 11:34:00
-- [求助]点太快会报错怎么处理
afterselchange 事件
Dim frm As WinForm.Form = Forms("任务明细")
Dim t As Table = Tables("XMFP")
Dim tname = t.cols(t.ColSel).name
Dim r As Row = e.Table.current
If MainTable.name ="xmfp" AndAlso Tables("XMFP").Current IsNot Nothing Then
If tname ="任务" AndAlso r("任务") >"" Then
If frm.opened = False Then
frm.open
frm.baseform.left = System.Windows.Forms.Cursor.Current.Position.X + 5
frm.baseform.Top = System.Windows.Forms.Cursor.Current.Position.Y + 5
e.Table.Focus
End If
End If
End If
每次切换的太快，就会报错
.NET Framework 版本：2.0.50727.8935
Foxtable 版本：2018.9.9.1
错误所在事件：XMFP,AfterSelChange
详细错误信息：
未将对象引用设置到对象的实例。
有的时候还会卡屏，一块白的，关不掉。只有关了项目再开才行。
此主题相关图片如下：2345截图20180917113437.jpg
[此贴子已经被作者于2018/9/17 11:35:28编辑过]
-- 发布时间：2018/9/17 11:38:00
--
做个例子发上来测试。
-- 发布时间：2018/9/17 19:01:00
--
我这边测试过了。点的很快又机率报错。还有卡屏
-- 发布时间：2018/9/17 20:31:00
--
1、限制一下点击速度 \'\'----任务明细 static ptime As Date = Nothing Dim sp As TimeSpan = Date.now - ptime ptime = Date.now If sp.TotalMilliseconds < 200 Then \'间隔200毫秒点击才有效 Return End If \'If _usergroup<>"组长" Then Dim frm As WinForm.Form = Forms("任务明细") Dim t As Table = Tables("XMFP") Dim tname = t.cols(t.ColSel).name Dim r As Row = e.Table.current …… 2、可以改为窗口表，然后使用panel替代独立窗口来显示悬浮内容 |
-- 发布时间：2018/9/17 22:24:00
--
请问下第二步有没有范例呀。
-- 发布时间：2018/9/17 22:43:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=93949
-- 发布时间：2018/9/18 9:27:00
--
窗口不能用close啊。人家用left、top自然有人家考虑啊。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |