Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next If Me.SelHeight > 1 Then '判断用户是否多选 Dim i As Long i = Me.CurrentRecord '保存鼠标点选时的第一个记录的值 Me.Requery '刷新数据表,退出多选状态 Me.SelTop = i '选中之前保存的行 End If End Sub