以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于列标题的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26704)
--  作者：zcw728909
--  发布时间：2012/12/12 11:35:00
--  关于列标题的问题

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

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

可是报错提示：“产品信息”不存在" & namesss & "的列，这是怎么回事？
--  作者：sloyy
--  发布时间：2012/12/12 11:51:00
--  
应该指定某一列名,  而不是数组
--  作者：lin_hailun
--  发布时间：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
--  发布时间：2012/12/12 12:11:00
--  

谢谢lin_hailun了，就是要这个效果，这种情况非要遍历一下才行？
--  作者：lin_hailun
--  发布时间：2012/12/12 13:36:00
--  
以下是引用zcw728909在2012-12-12 12:11:00的发言：

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


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