以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  页面问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192322)

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



--  作者:有点蓝
--  发布时间:2024/6/14 9:38:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:权限问题 - 副本.zip


--  作者:cd_tdh
--  发布时间:2024/6/14 9:50:00
--  
这样做更方便
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20240614094729.jpg
图片点击可在新窗口打开查看

--  作者:lin98
--  发布时间: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)

--  作者:有点蓝
--  发布时间: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
--  发布时间: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)

--  作者:有点蓝
--  发布时间:2024/6/18 9:24:00
--  
要么没有加载符合条件的数据。要么数据有问题,比如有看不见的空格,回车符等
--  作者:lin98
--  发布时间:2024/6/18 10:06:00
--  

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

--  作者:有点蓝
--  发布时间:2024/6/18 11:25:00
--  
很明显的数据问题

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