以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]在可视化授权表“列名”的下拉列表里，如何隐藏不可见的列？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135462)
--  作者：rainbow_59
--  发布时间：2019/5/27 14:17:00
--  [求助]在可视化授权表“列名”的下拉列表里，如何隐藏不可见的列？
可视化授权表的A表中，“列名”包括a,b,c, 其中c在打开A表时是不可见的。但，按照下面的代码，在下拉列表中含有c列，给工作带来不便。如何在列的下拉列表里隐藏不可见的列？求助！
If e.Col.Name = "列名" Then
    Dim s As String = e.Row("A")
    If s > "" AndAlso Tables.Contains(s) Then
        Dim t As Table = Tables(s)
        s = ""
        For Each c As Col In t.Cols
            s = s & "|" & c.Name
        Next
        e.Col.ComboList = s
    End If
End If
--  作者：有点甜
--  发布时间：2019/5/27 14:47:00
--  


If e.Col.Name = "列名" Then
    Dim s As String = e.Row("A")
    If s > "" AndAlso Tables.Contains(s) Then
        Dim t As Table = Tables(s)
        s = ""
        For Each c As Col In t.Cols
            If c.Visible Then
                s = s & "|" & c.Name
            End If
        Next
        e.Col.ComboList = s
    End If
End If

 

 
--  作者：rainbow_59
--  发布时间：2019/5/27 15:26:00
--  
谢谢！