- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 系统查找窗口中“查找位置”问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159076)
-- 发布时间：2020/12/13 0:15:00
-- [求助] 系统查找窗口中“查找位置”问题
老师你好，用 Syscmd.Edit.Find（）打开的“查找”窗口，点“查找位置”下拉框，隐藏列也显示在里面，怎样才能不显示隐藏列。谢谢！
-- 发布时间：2020/12/13 20:19:00
--
方法1、把列移除，而不是隐藏
2、自己做一个查询窗口
-- 发布时间：2020/12/13 22:41:00
--
谢谢， 用了移除的方式，实现了。代码如下：
Dim tb As Table = CurrentTable
Dim ColsStr As String = ""
For Each c As Col In tb.Cols
If c.Visible = False Then
ColsStr = ColsStr & "\'" & c.Name & "\',"
End If
Next
ColsStr = ColsStr.Trim(",")
If ColsStr.Length > 0 Then
ColsStr = "Tables(""" & tb.Name & """" & ").Cols.Remove(" & ColsStr & ")"
End If
ColsStr = ColsStr.Replace("\'", """")
Functions.Remove("RemoveInvisibleCols")
Functions.Add("RemoveInvisibleCols", ColsStr)
Functions.Complie()
Functions.Execute("RemoveInvisibleCols")
Syscmd.Edit.Find()