Foxtable(狐表)用户栏目专家坐堂 → 页面问题


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

主题:页面问题

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
页面问题  发帖心情 Post By:2024/6/14 9:15:00 [只看该作者]

需求:可视权限,实现以,杨刚用户登记,主窗口打开只”主页一,子页一可见,主页二,主页三,子页二,子页三为不见。
实例执行,失效,请老师帮在实例上纠正,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:权限问题 - 副本.zip



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111372 积分:566924 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/14 9:38:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:权限问题 - 副本.zip


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3223 积分:21401 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2024/6/14 9:50:00 [只看该作者]

这样做更方便
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20240614094729.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/6/18 8:49:00 [只看该作者]

Dim db = HySq-l.DataBaseFactory.CreateDatabase("YF123")

'Dim Sq-l2 = "selec-t * from  Users"
'Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sq-l2).Tables(0)
'dt2.TableName = "Users"
'Dim t2 As Table = e.Form.Controls("Table2").Table
't2.datasource = dt2
't2.AllowEdit = True



Dim Sq-l = "selec-t * from  页面权限"
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sq-l).Tables(0)
dt.TableName = "页面权限"
Dim t As Table = e.Form.Controls("Table1").Table
t.datasource = dt
t.AllowEdit = True

Msgbox(1)

下面代码执行,没报错,但失效,如何解决?
For Each dr3 As DataRow In DataTables("主界面窗口_Table1").Select("用户名 = '" & _UserName & "' And 窗口名= '" & e.Form.Name & "'")
'For Each dr3 As DataRow In DataTables("页面权限").Select("用户名 = '" & _UserName & "' And 窗口名= '" & e.Form.Name & "'") 
    Dim tab As WinForm.TabControl = e.Form.Controls(dr3("控件名称"))
    tab.TabPages(dr3("页名")).Visible = Not dr3("不可见")
    tab.TabPages(dr3("页名")).Enabled = Not dr3("不可编辑")
Next

Msgbox(2)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111372 积分:566924 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/18 8:55:00 [只看该作者]

学会调试

msgbox("用户名 = '" & _UserName & "' And 窗口名= '" & e.Form.Name & "'")
dim drs as list(of datarow) = DataTables("主界面窗口_Table1").Select("用户名 = '" & _UserName & "' And 窗口名= '" & e.Form.Name & "'")
msgbox(drs.count)

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/6/18 9:20:00 [只看该作者]

执行后,用户名 =小李,窗口名=主界面
msgbox("用户名 = '" & _UserName & "' And 窗口名= '" & e.Form.Name & "'"),

dim drs as list(of datarow) = DataTables("主界面窗口_Table1").Select("用户名 = '" & _UserName & "' And 窗口名= '" & e.Form.Name & "'")
执行后,提示:O,
msgbox(drs.count)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111372 积分:566924 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/18 9:24:00 [只看该作者]

要么没有加载符合条件的数据。要么数据有问题,比如有看不见的空格,回车符等

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/6/18 10:06:00 [只看该作者]


失效问题,请老师帮处理,谢谢
[upload=zip,新建文件夹 (4).z
[此贴子已经被作者于2024/6/18 11:31:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111372 积分:566924 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/18 11:25:00 [只看该作者]

很明显的数据问题

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


 回到顶部