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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于列标题的问题

共有8310人关注过本帖树形打印复制链接主题：关于列标题的问题

zcw728909

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

加好友

发短信

等级：童狐帖子：209 积分：1607 威望：0 精华：0 注册：2012/9/7 20:24:00

关于列标题的问题 发帖心情

Post By：2012/12/12 11:35:00 [只看该作者]

在帮助文件里有怎样设置列标题的代码，我希望根据登录的不同用户组来设置多个列的标题，代码如下：

With DataTables("产品信息")
    Dim namesss() As String ={"电雕在制支数","机加在制支数","镀铜在制支数","车研在制支数","镀铬在制支数","料库在制支数","打样在制支数"}
    If _UserGroup <> "生产部" Then
        .DataCols(" & namesss & ").Caption = "支数"
    End If
End With

可是报错提示：“产品信息”不存在" & namesss & "的列，这是怎么回事？

sloyy

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

加好友

发短信

等级：九尾狐帖子：2180 积分：13804 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2012/12/12 11:51:00 [只看该作者]

应该指定某一列名, 而不是数组

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/12 12:01:00 [只看该作者]

楼主是不是想写

With DataTables("产品信息")
    Dim names() As String ={"电雕在制支数","机加在制支数","镀铜在制支数","车研在制支数","镀铬在制支数","料库在制支数","打样在制支数"}
    If _UserGroup <> "生产部" Then
        For Each name As String In Names
            .DataCols(name).Caption = "支数"
        Next
        .BuildHeader()
    End If
End With

zcw728909

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

加好友

发短信

等级：童狐帖子：209 积分：1607 威望：0 精华：0 注册：2012/9/7 20:24:00

Post By：2012/12/12 12:11:00 [只看该作者]

谢谢lin_hailun了，就是要这个效果，这种情况非要遍历一下才行？

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/12 13:36:00 [只看该作者]

以下是引用zcw728909在2012-12-12 12:11:00的发言：

谢谢lin_hailun了，就是要这个效果，这种情况非要遍历一下才行？

是的，因为你修改的是多个列的标题。

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

主题：关于列标题的问题