在添加和删除用户窗体中有一些逻辑问题如果没有注意就会造成错误。下面将对这些错误进行总结，罗列。

总体思路

正在登陆的用户不能删除

如果把数据库全清之后，以后系统该如何进入呢？所以在删除用户的时候就要进行限制。

  If myflexgrid.Row = 0 Then    '不能删除第一行文本
      MsgBox "这一行不能删除！",vbOKOnly + vbExclamation,"警告"
      Exit Sub
   End If
   '判断要删除的是不是正在登陆的窗口
   
   If myflexgrid.TextMatrix(myflexgrid.RowSel,0) = Trim(UserName) Then
      MsgBox "正在登陆的用户不能删除！","警告"
   Else
      txtsql = "select * from User_Info where UserID= '" & Trim(myflexgrid.TextMatrix(myflexgrid.Row,0)) & "'"
   Set mrc = Executesql(txtsql,MsgText)
   '移除要删除的项目
      myflexgrid.RemoveItem myflexgrid.Row
      mrc.Delete
      mrc.Update
      mrc.Close
    End If

添加用户的默认值的问题

添加用户窗口的清空问题