以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选角色对应记录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175887)
--  作者：nxqtxwz
--  发布时间：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
--  作者：有点蓝
--  发布时间：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