'定义模块级变量
Dim NowRow As Integer
第一步:在MSHFlexGrid的MouseDown事件中添加如下代码
Private Sub mfgAddDeleteUser_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
With mfgAddDeleteUser
.Row = .MouseRow
NowRow = .Row
.Col = 0
.ColSel = .Cols - 1
End With
End Sub
第二步:在MSHFlexGrid的MouseUp事件中添加如下代码
Private Sub mfgAddDeleteUser_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
With mfgAddDeleteUser
.RowSel = NowRow
.ColSel = .Cols - 1
End With
End Sub
第三步:在“删除”按钮下添加如下代码
Private Sub cmdDelete_Click()
Dim rstMrc As ADODB.Recordset
Dim strSQL As String
Dim strMsg As String
'在数据库中删除选中记录
strSQL = "delete from User_Info where UserID= '" & Trim(mfgAddDeleteUser.TextMatrix(mfgAddDeleteUser.Row, 0)) & "'"
Set rstMrc = ExecuteSQL(strSQL, strMsg)
'在mfgAddDeleteUser中删除选中记录
mfgAddDeleteUser.RemoveItem mfgAddDeleteUser.Row
End Sub