怎样删除MSHFlexGrid控件中指定的记录

做机房收费系统不免要遇到这个问题，那就是删除MSHFlexGrid控件里指定的记录，这也是前几天我一直纠结的一个问题，不知道该怎么做，现在学会了，我要把它记录下来，因为这是我的成长记录，呵呵。

我们不仅要删除MSHFlexGrid控件中指定的记录，还要删除数据库里所对应的记录。

那么首先删除MSHFlexGrid控件中指定的记录该怎么做，查了查百度，是这样写的：                                                Dim HaveSelected As Boolean

Private Sub Form_Load()
    MSHFlexGrid1.SelectionMode = flexSelectionByRow '设置MSHFlexGrid1的选择方式是按行选择
    HaveSelected = False '设置标志,防止没选择就删除
End Sub

Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    HaveSelected = True '设置标志允许删除
End Sub

private  sub delete_click()

If HaveSelected = True Then

MSHFlexGrid1.RemoveItem MSHFlexGrid1.RowSel '删除选中的行

但是这样只是删除了MSHFlexGrid控件中的记录，数据库里对应的内容根本没有删除，但是怎样找到对应的记录来查询并删除呢，原来是用到了这样一个语句

Dim a As String

a = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 0)

就能锁定到这条记录，然后查询并删除

txtSQL = "select * from User_Info  where userid= '" & a & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)

就这样，这个功能就实现了。