以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- CurrentChanged事件出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179277) |
-- 作者:foxtablefanse -- 发布时间:2022/8/16 11:19:00 -- CurrentChanged事件出错 窗口有 sqltable表,加载时,想通过代码联动加载相关表,但是窗口加载时提示错误,加载完成后又能正常联动! CurrentChanged事件代码: If e.Table.Current Is Nothing Then \'如果Current为Nothing Return Else Dim b1 As WinForm.Button = e.Form.Controls("关联路单") \'刷新关联路单 b1.PerformClick() Dim b2 As WinForm.Button = e.Form.Controls("关联人员") \'刷新关联人员 b2.PerformClick() Dim b3 As WinForm.Button = e.Form.Controls("关联费用") \'刷新关联费用 b3.PerformClick() End If
|
-- 作者:foxtablefanse -- 发布时间:2022/8/16 11:23:00 -- 感觉sqltable数据还没有加载,就已经触发了CurrentChanged事件! |
-- 作者:有点蓝 -- 发布时间:2022/8/16 11:29:00 -- 只要窗口打开这个事件肯定就触发了,在事件里判断一下,比如没有编号列就退出 If e.Table.Current Is Nothing orelse e.Table.cols.contains("编号") = false Then \'如果Current为Nothing Return Else [此贴子已经被作者于2022/8/16 11:29:28编辑过]
|
-- 作者:foxtablefanse -- 发布时间:2022/8/16 12:14:00 -- 只能这样了 |