| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]我要实现让不同的用户处理不同的列功能，参考了帮助（链接）尝试了如下代码，但是出错，出错信息无法执行，请问代码哪里有问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158963) |
| -- 作者：想接吻的猫 -- 发布时间：2020/12/8 15:14:00 -- [求助]我要实现让不同的用户处理不同的列功能，参考了帮助（链接）尝试了如下代码，但是出错，出错信息无法执行，请问代码哪里有问题？ Select Case User.Group Case "市场部","工商部","会计部","客服部","海外部","商标部" Tables("快递日期").Cols.Remove("第一列") Tables("客户代码").Cols.Remove("第二列") Case "市场部","工商部","人资部","海外部","商标部" Tables("客户信息表").Cols.Remove("第三列") Case "市场部","人资部","会计部","客服部","海外部","商标部" Tables("工商统计表").Cols.Remove("第五列") Tables("工商变更表").Cols.Remove("第六列") Case "会计部","客服部","海外部","商标部","人资部" Tables("地址挂靠").Cols.Remove("第六列") |
| -- 作者：有点蓝 -- 发布时间：2020/12/8 15:53:00 -- 1、代码写在什么事件？ 2、代码不完整 3、看看http://www.foxtable.com/webhelp/topics/2242.htm，注意理解一下select case的用法
|
| -- 作者：想接吻的猫 -- 发布时间：2020/12/8 16:54:00 -- 代码写在Afteropenproject这个项目里 |
| -- 作者：想接吻的猫 -- 发布时间：2020/12/8 16:55:00 -- 我想解决问题是让不同的用户处理不同的列，但是一直无法执行 |
| -- 作者：有点蓝 -- 发布时间：2020/12/8 16:59:00 -- Select Case User.Group Case "市场部","工商部","会计部","客服部","海外部","商标部" Tables("快递日期").Cols.Remove("第一列") Tables("客户代码").Cols.Remove("第二列") end select Select Case User.Group Case "市场部","工商部","人资部","海外部","商标部" Tables("客户信息表").Cols.Remove("第三列") end select 另外确定列名是正确的，这些表仍然是使用"第一列"、"第二列"这种列名？
[此贴子已经被作者于2020/12/8 17:00:44编辑过]
|
| -- 作者：想接吻的猫 -- 发布时间：2020/12/8 21:36:00 -- 我在Afteropenproject这里设置让不同的用户查看不同的表，前面设计的几个是看不到其它人的表的，但后面设置的就执行不出来是怎么回事呀？ 下面是我设置的代码，麻烦您帮我看看，谢谢！ Select Case User.Name Case "赖伟华","张好","郭雪娇","李奕","郭培伦","李小敏","罗洋","蔡文奕","吴晓英" Tables("快递记录").Visible = False Tables("客户代码").Visible = False Case "赖伟华","张好","龚举","李小敏","罗洋","蔡文奕","吴晓英","黄彩蓝" Tables("客户信息表").Visible = False Case "张文森","李辉贞","郭雪娇","李奕","郭培伦","李小敏","罗洋","蔡文奕","吴晓英","龚举","罗洋","吴晓敏","周霞" Tables("工商部统计表").Visible = False Tables("工商部变更表").Visible = False Case "张文森","李辉贞","郭雪娇","李奕","郭培伦","李小敏","罗洋","蔡文奕","吴晓英","罗洋","吴晓敏","周霞" Tables("地址挂靠").Visible = False Case "张文森","李辉贞","郭雪娇","李奕","郭培伦","李小敏","龚举","蔡文奕","吴晓英","罗洋","吴晓敏","周霞","林慧梅","张好","赖伟华" Tables("商标申请").Visible = False Case "张文森","李辉贞","郭雪娇","李奕","郭培伦","罗洋","龚举","蔡文奕","吴晓英","罗洋","吴晓敏","周霞","林慧梅","张好","赖伟华" Tables("海外公司业务跟进表").Visible = False Tables("海外公司客户情况表").Visible = False End Select |
| -- 作者：有点蓝 -- 发布时间：2020/12/8 21:37:00 -- 请认真理解一下5楼的用法 |
| -- 作者：想接吻的猫 -- 发布时间：2020/12/8 22:05:00 -- Select Case e.DataCol.Name End Select Select Case e.DataCol.Name "赖伟华","张好","郭雪娇","李奕","郭培伦","李小敏","罗洋","蔡文奕","吴晓英" Tables("快递记录").Visible = False Tables("客户代码").Visible = False End Select Select Case e.DataCol.Name "赖伟华","张好","龚举","李小敏","罗洋","蔡文奕","吴晓英","黄彩蓝" Tables("客户信息表").Visible = False End Select Select Case e.DataCol.Name "张文森","李辉贞","郭雪娇","李奕","郭培伦","李小敏","罗洋","蔡文奕","吴晓英","龚举","罗洋","吴晓敏","周霞" Tables("工商部统计表").Visible = False Tables("工商部变更表").Visible = False End Select Select Case e.DataCol.Name "张文森","李辉贞","郭雪娇","李奕","郭培伦","李小敏","罗洋","蔡文奕","吴晓英","罗洋","吴晓敏","周霞" Tables("地址挂靠").Visible = False End Select End Select Select Case e.DataCol.Name"张文森","李辉贞","郭雪娇","李奕","郭培伦","李小敏","龚举","蔡文奕","吴晓英","罗洋","吴晓敏","周霞","林慧梅","张好","赖伟华" Tables("商标申请").Visible = False End Select Select Case e.DataCol.Name "张文森","李辉贞","郭雪娇","李奕","郭培伦","罗洋","龚举","蔡文奕","吴晓英","罗洋","吴晓敏","周霞","林慧梅","张好","赖伟华" Tables("海外公司业务跟进表").Visible = False Tables("海外公司客户情况表").Visible = False End If 显示Select Case e.DataCol.Name代码错误
|
| -- 作者：有点蓝 -- 发布时间：2020/12/8 22:17:00 -- Select Case User.Name case "赖伟华","张好","郭雪娇","李奕","郭培伦","李小敏","罗洋","蔡文奕","吴晓英" Tables("快递记录").Visible = False Tables("客户代码").Visible = False End Select 其它的按照此方式改。 建议还是花点时间先学学基础吧，连基本的代码逻辑都没看懂：http://www.foxtable.com/webhelp/topics/1592.htm
|
| -- 作者：想接吻的猫 -- 发布时间：2020/12/9 10:25:00 -- Select Case User.Name Case "赖伟华","张好","郭雪娇","李奕","郭培伦","李小敏","罗洋","蔡文奕","吴晓英" Tables("快递记录").Visible = False Tables("客户代码").Visible = False Case "赖伟华","张好","龚举","李小敏","罗洋","蔡文奕","吴晓英","黄彩蓝" Tables("客户信息表").Visible = False
End Select 请问是这样编写吗？ |