主题：代码问题

Dim t As Table = Tables("泥料配比")
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

这个代码是筛选列里面所有有数据的列集中在一起可是运用到我这个表里面就不管用了 请领导们帮帮我  我很急

今天单位网上传个文件太难了

这个代码运用到这个表中只有单击单元格后在切换一个表这时候回来就好使了有些时候直接点也好使 是不是列多反应的问题 但是感觉一点也不灵敏

不行