| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125442) |
| -- 作者：LXP166 -- 发布时间：2018/9/28 11:26:00 -- [求助] 执行下列 程序后： For Each dt As Table In Tables dt.Visible = False dt.AllowEdit = False Next Tables("工资计算").SetColVisibleWidth("员工姓名|80|扣款|60|补助|60|加项|60|缺勤扣社保A|90|扣借款|60|差补|60|安装售后工资|90|安装天数|80|工资日期|100|当月日历天数|100|伙食|60|社保|60|" ) Select Case User.Name Case "综合副总经理" Tables("工资计算").Visible = True Tables("工资计算").AllowEdit = True Tables("工资计算").Cols.Remove("差补") Tables("工资计算").Cols.Remove("安装售后工资") Tables("工资计算").Cols.Remove("安装天数") Tables("工资计算").Cols.Remove("市内安装天数") Case "财务部核算" Tables("工资计算").Visible = True Tables("工资计算").AllowEdit = True Tables("工资计算").Cols.Remove("补助") Tables("工资计算").Cols.Remove("加项") Tables("工资计算").Cols.Remove("公司奖罚") Tables("工资计算").Cols.Remove("缺勤扣社保A") Tables("工资计算").Cols.Remove("伙食") Tables("工资计算").Cols.Remove("社保") End Select 在 Case "综合副总经理" 的工资计算 tables 中 扣借款列不显示 ，如果加上 Tables("工资计算").Cols("扣借款").Visible = True 提示 工资计算不存在 扣借款列 在 Case "财务部核算" 中能够显示扣借款列 |
| -- 作者：有点甜 -- 发布时间：2018/9/28 11:33:00 -- 提示不存在xxx列，就是说明你的表格，真的就没有xxx列。
请认真检查，不然做个实例发上来测试。 |
| -- 作者：LXP166 -- 发布时间：2018/9/28 11:37:00 -- 列存在的，用另外人登录就显示出来了 |
| -- 作者：LXP166 -- 发布时间：2018/9/28 11:38:00 -- 用综合不显示，用财务登录显示 |
| -- 作者：有点甜 -- 发布时间：2018/9/28 11:43:00 -- 以下是引用LXP166在2018/9/28 11:38:00的发言：
用综合不显示，用财务登录显示
1、你尝试删除那些 cols.remove 的代码，不要remove列；
2、你肯定没有加载【扣款列】，或者移除了【扣款列】，才导致的。 |