以文本方式查看主题 - 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 -- 页面问题 需求:可视权限,实现以,杨刚用户登记,主窗口打开只”主页一,子页一可见,主页二,主页三,子页二,子页三为不见。 实例执行,失效,请老师帮在实例上纠正,谢谢
|
||||
-- 作者:有点蓝 -- 发布时间:2024/6/14 9:38:00 --
|
||||
-- 作者: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 -- 很明显的数据问题 |