- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14464)
-- 发布时间：2011/11/20 15:05:00
-- 代码问题
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
这个代码是筛选列里面所有有数据的列集中在一起可是运用到我这个表里面就不管用了 请领导们帮帮我 我很急
-- 发布时间：2011/11/20 15:14:00
--
这个不像是筛选的代码，你是想怎么呢。
-- 发布时间：2011/11/20 15:17:00
--
密码是：110721
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码不管用1.table |
o
-- 发布时间：2011/11/20 15:17:00
--
今天单位网上传个文件太难了
-- 发布时间：2011/11/20 15:24:00
--
这个代码运用到这个表中只有单击单元格后在切换一个表这时候回来就好使了有些时候直接点也好使 是不是列多反应的问题 但是感觉一点也不灵敏
-- 发布时间：2011/11/20 15:50:00
--
怎么会这样要求，这不是所有多层的列都打乱了吗。
一定要这样，可以把你1楼代码放到datacolchanged事件中。
-- 发布时间：2011/11/20 15:54:00
--
不行
-- 发布时间：2011/11/20 16:01:00
--
你这个代码是移动列用的吧?应该是根据某一行数据来排列列的吧.
-- 发布时间：2011/11/20 17:54:00
--
以下是引用7032175在2011-11-20 15:54:00的发言：
不行
有什么问题吗，可以移动有数据的列到前面来啊。