筛选角色对应记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选角色对应记录

共有3018人关注过本帖树形打印复制链接主题：筛选角色对应记录

nxqtxwz

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

筛选角色对应记录 发帖心情

Post By：2022/3/23 9:03:00 [只看该作者]

老师您好，想打开窗口时，把与登录用户角色对应的记录呈现出来代码怎么改呢？

用户角色对应每个班级，也就是A用户角色是三班，登录后，打开窗口时呈现的是三班的学生信息，其它班学生信息不显示。

Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("核酸检测_table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "班级 Like "   & txt & " "
Tables("核酸检测_table1").DataTable.ReplaceFor("_locked", False, "")
End If

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/3/23 9:08:00 [只看该作者]

Dim txt As String = user.roles.replace(",","','")

Dim tbl As Table = Tables("核酸检测_table1")
If txt = "" Then
tbl.Filter = ""
Else
tbl.Filter = "班级 in ('" & txt & "')"
Tables("核酸检测_table1").DataTable.ReplaceFor("_locked", False, "")
End If

下一主题 >> << 上一主题

主题：筛选角色对应记录