Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于权限控制代码


  共有8005人关注过本帖树形打印复制链接

主题：关于权限控制代码
帅哥哟，离线，有人找我吗？
有点蓝
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/6/29 16:40:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5845 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/6/29 17:06:00 [只看该作者]

'其他设置
Tables("统计表1").AutoSizeCols()'’自动设置所有列的宽度
Tables("统计表1").Cols("乡镇").Width = 70 '将数量列的列宽设为100个像素
Tables("统计表1").SysStyles("Normal").BorderColor = Color.Red '设置表网格线颜色，数据区Normal，网格线颜色BorderColor
Tables("统计表1").SysStyles("Highlight").BackColor = Color.DarkSeaGreen '设置选定区域背景色为，选定区域Highlight，背景色BackColor
MainTable = Tables("统计表1") '打开生成的统计表

老师，我这样写出错，不能放在这里，应放在哪里
[此贴子已经被作者于2023/6/29 17:06:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/6/29 17:25:00 [只看该作者]

出什么错？

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5845 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/6/29 17:38:00 [只看该作者]

BorderColor 不是c1.win.c1flexgrid.cellstyle的成员

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/6/29 17:39:00 [只看该作者]

Tables("统计表1").SysStyles("Normal").BorderColor = Color.Red
改为

DataTables("统计表1").SysStyles("Normal").BorderColor = Color.Red
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5845 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/6/29 17:44:00 [只看该作者]

ok

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5845 威望：0 精华：0 注册：2016/4/15 22:24:00 		代码  发帖心情 Post By：2023/7/4 16:43:00 [只看该作者]

请教老师帮我看看，登录时，为什么检验码出现错误，到底错在哪里，请老师帮忙看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:审核流程管理20230704.foxdb

[此贴子已经被作者于2023/7/4 16:43:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/4 16:55:00 [只看该作者]

什么地方的检验码？出现什么错误？

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：847 积分：5845 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2023/7/4 17:07:00 [只看该作者]

登录按钮，提示“姓名、账号、部门不一致”，本来是一致的，这里判断出错

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/7/4 17:14:00 [只看该作者]

调试

……
If dr Is Nothing Then
    MessageBox.Show ("账号不存在, 请确认账号是否注册!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Return
End If
msgbox("bm=" & bm.value & ",部门=" & dr("部门") & "," & (bm.value = dr("部门")))
msgbox("xm=" & xm.value & ",姓名=" & dr("姓名") & "," & (xm.value = dr("姓名")))
msgbox("zh=" & zh.value & ",账号=" & dr("账号") & "," & (zh.value = dr("账号")))
If bm.value = dr("部门") And xm.value = dr("姓名") And zh.value = dr("账号") Then
    If mm.value = dr("密码") Then
        If dr("用户状态") = "停用" Then '如果前面部门或姓名只加载了启用状态的,此处不用判断
            MessageBox.Show ("您的账号还未启用或已停用, 请与管理员联系!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Return
        End If
 回到顶部
总数 67 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询