以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]加载表时提示列不存在  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169668)

--  作者:流水
--  发布时间:2021/6/25 11:18:00
--  [讨论]加载表时提示列不存在
加载表时提示列不存在,求帮助

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看


表事件AfterSelChange代码如下:

Dim a() As String = {"备注","附件","产品范围"}
For i As Integer = 0 To a.Length - 1
    If e.Table.Cols.Contains(e.Table.Cols(a(i))) = True Then
        Dim b As Col = e.Table.Cols(a(i))
        If e.NewRange.ColSel = b.Index
            b.OpenWindow
        Else
            b.CloseWindow
        End If
    End If
Next

--  作者:有点蓝
--  发布时间:2021/6/25 11:28:00
--  
试试加一句判断

if e.Table.Focused then
Dim a() As String = {"备注","附件","产品范围"}
For i As Integer = 0 To a.Length - 1
……

如果还不行,就是这个表没有这个名称的列

--  作者:流水
--  发布时间:2021/6/25 11:56:00
--  
列是真实存在的,这个表事件里没有这些代码的话是不报错的,有这个打开 列窗口 的代码,就会报错;
我试下这个判断;

--  作者:流水
--  发布时间:2021/6/25 11:58:00
--  
解决了,谢谢