以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下列代码如何实现隐藏列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153530)
--  作者：lyfxybc
--  发布时间：2020/8/14 9:15:00
--  下列代码如何实现隐藏列
有一个表A许多列，通过下列代码在表B(共两列，第一列，第二列)，实现了列变成了行，选择行后，在表A实现把没选择列的隐藏，只剩选择的 



Dim nms As String
Dim nms1 As String 
Dim nms11 As String 
Dim nms111 As String  
For Each  dr As Row In Tables("报表列").Rows 
   If dr("第一列") =True  Then
      nms  = nms & "," &  dr("第二列")
   End If
Next
For Each r As Row In Tables("报表列").Rows    
    If nms > "" Then
       r("第三列") = nms.Trim(",")
    Else
        r("第三列") = Nothing
    End If      
Next

向下如何写代码
--  作者：有点蓝
--  发布时间：2020/8/14 9:38:00
--  
没看懂，请上传实例说明
--  作者：lyfxybc
--  发布时间：2020/8/14 9:43:00
--  
就是任意快速隐藏列
--  作者：lyfxybc
--  发布时间：2020/8/14 9:45:00
--  
当一个表有许多列，想显示几列，一个一个隐藏列太慢了
--  作者：有点蓝
--  发布时间：2020/8/14 9:50:00
--  
方法1、遍历：http://www.foxtable.com/webhelp/topics/0572.htm
dim srr() as string = {"A列","B列"}
for each s as string in srr
Tables("订单").cols(s).Visible = False
next