- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 一键过滤空行问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58459)
-- 发布时间：2014/10/17 9:02:00
-- 一键过滤空行问题
如果要一键过滤表A中第一列中的空行（不是删除），代码如何写？
-- 发布时间：2014/10/17 9:06:00
--
筛选掉就好了
Tables(X).FIlter="第一列 is not null and 第二列 is not null ....."
-- 发布时间：2014/10/17 9:08:00
--
Dim Filter As String
For Each c As Col In CurrentTable.Cols
Filter= Filter & "and " & c.name & " is null "
Next
Filter = DataTables("表A").GetComboListString("_Identify",Filter.Substring(3,Filter.length-3))
CurrentTable.FIlter="_Identify not in (\'" & Filter.replace("|","\',\'") & "\')"
[此贴子已经被作者于2014-10-17 9:15:39编辑过]
-- 发布时间：2014/10/17 9:21:00
--
谢谢bin老师！
-- 发布时间：2014/10/18 16:09:00
--
我希望一键过滤空行后，达到这个效果
操作：
1、先筛选出某一商品，如苹果。
2、按“过滤空行”键，过滤掉“数量”列中苹果的空行，而香蕉、荔枝“数量”列的空行不要过滤。
3、过滤后，表A中只显示“数量”列中没有空行的苹果信息（即本案中只显示三行苹果信息），香蕉、
荔枝都不显示。求按键代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2014/10/18 16:41:00
--
Tables("表A").Filter = Tables("表A").Filter & " and 数量<>\'\' and 数量 is not null"
-- 发布时间：2014/10/18 17:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:过滤空行.table |
-- 发布时间：2014/10/18 18:11:00
--
谢谢各位老师！lsy设计的非常好！