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

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

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

 看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

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