以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助，用户管理  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138145)
--  作者：long086
--  发布时间：2019/7/23 21:36:00
--  求助，用户管理

示例文件中的 用户管理 窗口 的 删除用户 按钮，我想新增一个 admin 管理员 账号，这个账号不允许删除，怎么实现

 

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=0 Then
    Dim UserName As String = lst.SelectedItem
        _UserTable.SQLDeleteFor("[Name] = \'" & UserName & "\'")
        lst.Items.RemoveAt(lst.SelectedIndex)
        lst.Select()     
End If

 

这个是原代码

[此贴子已经被作者于2019/7/23 22:13:13编辑过]
--  作者：有点蓝
--  发布时间：2019/7/23 22:29:00
--  
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.SelectedIndex >=0 Then
    Dim UserName As String = lst.SelectedItem
if UserName  ="admin" then
msgbox("不允许删除")
return
end if
        _UserTable.SQLDeleteFor("[Name] = \'" & UserName & "\'")
        lst.Items.RemoveAt(lst.SelectedIndex)
        lst.Select()      
End If