共9 条记录, 每页显示 10 条, 页签: [1]

标题：页面问题

1楼

lin98 发表于：2024/6/14 9:15:00

需求：可视权限，实现以，杨刚用户登记，主窗口打开只”主页一，子页一可见，主页二，主页三，子页二，子页三为不见。

实例执行，失效，请老师帮在实例上纠正，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:权限问题 - 副本.zip

2楼

有点蓝 发表于：2024/6/14 9:38:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:权限问题 - 副本.zip

3楼

cd_tdh 发表于：2024/6/14 9:50:00

这样做更方便

此主题相关图片如下：qq截图20240614094729.jpg

4楼

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("不可编辑")

Msgbox(2)

5楼

有点蓝 发表于：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)

6楼

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)

7楼

有点蓝 发表于：2024/6/18 9:24:00

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

8楼

lin98 发表于：2024/6/18 10:06:00

失效问题，请老师帮处理，谢谢

[upload=zip,新建文件夹 (4).z

[此贴子已经被作者于2024/6/18 11:31:29编辑过]

9楼

有点蓝 发表于：2024/6/18 11:25:00

很明显的数据问题

此主题相关图片如下：1.png

共9 条记录, 每页显示 10 条, 页签: [1]