删除MSHFlexGrid选中行及其sql数据库中对应记录

???????? 在做机房收费系统的时候，遇到了这个问题“删除MSHFlexGrid选中行及其sql数据库中对应记录”，

我通过查找资料，进行了整理，在此和大家切磋一下。下面是我的代码：

?

Option Explicit

Dim NowRow As Integer

?

Private Sub MSHFlexGrid1_MouseDown(ButtonAs Integer,Shift As Integer,x As Single,y As Single)

With MSHFlexGrid1

.Row = .MouseRow

NowRow = .Row

.Col = 0

.ColSel = .Cols - 1

End With

End Sub

?

Private Sub MSHFlexGrid1_MouseUp(Button AsInteger,y As Single)

With MSHFlexGrid1

.RowSel = NowRow

.ColSel = .Cols - 1

End With

EndSub

?

Private Sub cmdDelete_Click()

Dim rstMrc As ADODB.Recordset

Dim strSQL As String

Dim strMsgtextAs String

strSQL ="delete? from?? User_Info??where?? UserID= ' " & Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row,0)) & " ' "?????

Set rstMrc =ExecuteSQL(strSQL,strMsgtext)

MSHFlexGrid1.RemoveItemMSHFlexGrid1.Row

End sub