标题：筛选

这有什么意义？

Dim t As Table = Tables("表A")
t.StopRedraw
Dim r As Row = t.Current
Dim i As Integer
For Each c As Col In t.Cols
    If r.IsNull(c.Name) = False Then
        t.Cols(c.Name).Move(i)
        i = i+1
    End If
Next
t.ResumeRedraw

请问这个代码写在表的什么位置呀

做个按钮，写在按钮的Click事件代码中。

这行代码用了一段时间我想还能不能在提高一下就是比如说我有10个列 我只需要筛选出后面5个列的内容 前面5个列不需要动如何实现

我用了冻结列与锁定列都不管用

Dim t As Table = Tables("表A")
Dim r As Row = t.Current
Dim n As Integer = 6
For i As Integer = 6 To t.cols.count -1
    If r.IsNull(t.cols(i).name) = False
        t.Cols(t.cols(i).name).Move(n)
        n = n + 1
    End If
Next