主题：代码问题

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

 

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

这个不像是筛选的代码，你是想怎么呢。

密码是：110721

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:代码不管用1.table

o

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

 

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

 

怎么会这样要求，这不是所有多层的列都打乱了吗。

 

一定要这样，可以把你1楼代码放到datacolchanged事件中。

不行

你这个代码是移动列用的吧?应该是根据某一行数据来排列列的吧.

有什么问题吗，可以移动有数据的列到前面来啊。