主题：自定义用户管理实例中，删除全部用户后无法新增用户的问题？

CaseStudy目录下“自定义用户管理之二”，这个例子的用户全部被删除后，用开发者登陆后，用户管理重新增加用户增加不了，新增用户时出现下面对话框，新增不了用户，不知道什么原因？

建议在用户.mdb里新增一个用户admin,进行锁定不被删除，并在“删除用户”按钮里进行代码设置

此主题相关图片如下：qq图片20160628090857_副本.jpg

 汗，删除所有以后，你根本就无法再登陆进去。

 删除用户的时候，你可以判断，如果是某某用户，或者如果用户数等于1的时候，不允许再删除。

请问老师，在哪里设置和判断，怎样写代码

在用户.mdb里新增一个用户admin,进行锁定，用户不能删除admin，怎么设置？

 看5楼，比如

 

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

“用户管理”窗口中"删除用户“按钮的代码为：

若用户名为admin，则不允许删除该用户，如何完善代码？

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("不能删除")
    Else
        _UserTable.SQLDeleteFor("[Name] = '" & UserName & "'")
        lst.Items.RemoveAt(lst.SelectedIndex)
        lst.Select()
    End If
End If