以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于列标题的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26704) |
-- 作者:zcw728909 -- 发布时间:2012/12/12 11:35:00 -- 关于列标题的问题 在帮助文件里有怎样设置列标题的代码,我希望根据登录的不同用户组来设置多个列的标题,代码如下: With DataTables("产品信息") 可是报错提示:“产品信息”不存在" & 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了,就是要这个效果,这种情况非要遍历一下才行? 是的,因为你修改的是多个列的标题。 |