共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：代码问题
1楼
7032175 发表于：2011/11/20 15:05:00Dim 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
这个代码是筛选列里面所有有数据的列集中在一起可是运用到我这个表里面就不管用了 请领导们帮帮我 我很急
2楼
e-png 发表于：2011/11/20 15:14:00这个不像是筛选的代码，你是想怎么呢。
3楼
7032175 发表于：2011/11/20 15:17:00密码是：110721
o
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码不管用1.table |
o
4楼
7032175 发表于：2011/11/20 15:17:00今天单位网上传个文件太难了
5楼
7032175 发表于：2011/11/20 15:24:00这个代码运用到这个表中只有单击单元格后在切换一个表这时候回来就好使了有些时候直接点也好使 是不是列多反应的问题 但是感觉一点也不灵敏
6楼
e-png 发表于：2011/11/20 15:50:00怎么会这样要求，这不是所有多层的列都打乱了吗。
一定要这样，可以把你1楼代码放到datacolchanged事件中。
7楼
7032175 发表于：2011/11/20 15:54:00不行
8楼
布莱克朱 发表于：2011/11/20 16:01:00你这个代码是移动列用的吧?应该是根据某一行数据来排列列的吧.
9楼
e-png 发表于：2011/11/20 17:54:00以下是引用7032175在2011-11-20 15:54:00的发言：
不行
有什么问题吗，可以移动有数据的列到前面来啊。
共9 条记录, 每页显示 10 条, 页签:
[1]