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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助按照条件筛选列代码

共有2121人关注过本帖树形打印复制链接主题：求助按照条件筛选列代码

celchentao

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

加好友

发短信

等级：幼狐帖子：115 积分：1014 威望：0 精华：0 注册：2014/11/3 20:24:00

求助按照条件筛选列代码 发帖心情

Post By：2016/3/12 23:06:00 [只看该作者]

求助按照条件筛选列代码

表A列包含（1-1 1-2 1-3 1-4 1-5 2-1 2-2 2-3 2-4 2-5........的列如果用户名为1 要动态显示包含“1-”的列其他列全部隐藏用户2 登录要动态显示包含“2-”的列其他列全部隐藏

请问老师代码该如何写？

sjx71

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

加好友

发短信

等级：一尾狐帖子：476 积分：4602 威望：0 精华：0 注册：2013/5/22 15:32:00

Post By：2016/3/13 0:12:00 [只看该作者]

列名不能以数字开头，也不能包含除下划线（_）之外的符号

你可以给列起名列1_1 , 列1_2 , 列1_3 , 列2_1 ，列2_2 等

用户名分别叫 1， 2 。。。

这样你在项目事件 MainTableChanged 中写入以下代码即可实现你想要的功能

If CurrentTable.Name = "表A" Then

Select Case user.name

Case "1"

For Each c As Col In Tables("表A").Cols

If c.name.contains("列1_") Then

c.visible = True

Else

c.visible = False

End If

Case "2"

For Each c As Col In Tables("表A").Cols

If c.name.contains("列2_") Then

c.visible = True

Else

c.visible = False

End If

End Select

End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/14 13:49:00 [只看该作者]

msgbox(user.name & "_")

For Each c As Col In Tables("表A").Cols
    If c.name.contains(user.name & "_") Then
        c.visible = True
    Else
        c.visible = False
    End If
Next

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

主题：求助 按照条件筛选列代码

主题：求助按照条件筛选列代码