主题：一键过滤空行问题

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("|","','") & "')"

1、先筛选出某一商品，如苹果。

2、按“过滤空行”键，过滤掉“数量”列中苹果的空行，而香蕉、荔枝“数量”列的空行不要过滤。

3、过滤后，表A中只显示“数量”列中没有空行的苹果信息（即本案中只显示三行苹果信息），香蕉、

荔枝都不显示。求按键代码