以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 系统查找窗口中“查找位置”问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159076) |
-- 作者:zhutangxin -- 发布时间:2020/12/13 0:15:00 -- [求助] 系统查找窗口中“查找位置”问题 老师你好,用 Syscmd.Edit.Find()打开的“查找”窗口,点“查找位置”下拉框,隐藏列也显示在里面,怎样才能不显示隐藏列。谢谢! |
-- 作者:有点蓝 -- 发布时间:2020/12/13 20:19:00 -- 方法1、把列移除,而不是隐藏 2、自己做一个查询窗口
|
-- 作者:zhutangxin -- 发布时间: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() |