以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Remove隐藏系统列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139606)
--  作者：yifan3429
--  发布时间：2019/8/16 21:57:00
--  Remove隐藏系统列
    Tables("shouye").Cols.Remove("第一列")
    Tables("shouye").Cols.Remove("第二列")
上面代码正对单个Tables，如何编写 所有表如果有包含  姓名 列的Remove
下面代码在全局表可以实现，在AfterOpenProject 如何实现呢
    
--  作者：有点蓝
--  发布时间：2019/8/16 22:34:00
--  
遍历所有表，参考：http://www.foxtable.com/webhelp/topics/0437.htm
--  作者：yifan3429
--  发布时间：2019/8/16 23:02:00
--  
For Each tb As Table In Tables
    Select Case tb. Col.Name
    Case Contains"姓名" ,"\'日期,"ID" Then
      Cols.Remove  
 
End Select
Next


还是没有理解，不会用，求助
--  作者：yifan3429
--  发布时间：2019/8/19 15:15:00
--  
老师在吗 求助撒
--  作者：有点蓝
--  发布时间：2019/8/19 16:25:00
--  
Dim str() As String = {"第一列","第二列"}
For Each tb As Table In Tables
    For Each c As String In str
        If tb.Cols.Contains(c) Then tb.Cols.Remove(c)
    Next
Next