筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有12006人关注过本帖树形打印复制链接主题：筛选

czy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/11/14 14:29:00 [显示全部帖子]

这有什么意义？

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

[此贴子已经被作者于2011-11-14 14:29:23编辑过]

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/12/10 10:56:00 [显示全部帖子]

以下是引用姗姗来迟在2011-12-10 7:52:00的发言：

这行代码用了一段时间我想还能不能在提高一下就是比如说我有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

下一主题 >> << 上一主题

主题：筛选