以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  CurrentChanged事件出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=179277)

--  作者:foxtablefanse
--  发布时间:2022/8/16 11:19:00
--  CurrentChanged事件出错
窗口有 sqltable表,加载时,想通过代码联动加载相关表,但是窗口加载时提示错误,加载完成后又能正常联动!

图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_20220816111709.png
图片点击可在新窗口打开查看

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
--  
只能这样了