删除选中MSHFlexGrid控件中的数据

在编程时，代码越简单越好，让人一看就明白最好了。所以一直出于这个由衷的原则，所以在每次敲代码时，总是根据自己所学到的知识来修改代码，做到最简单，最直接了当的完成事件才不再修改。

        今天在做机房收费系统时遇到点小问题，不知道如何去删除MSHFlexGrid中的数据并且连带着把数据库中的数据删了，上网查了好多方法，看了很多人写的代码，自己也有点体会。所以就想把自己写的分享出来，供大家参考，也想让大家给点意见，嘿嘿。

        要想删除MSHFlexGrid中的数据，我们得先选中你要删除的数据行。那怎样选中呢！我下面就把怎样选中的代码分享出来。

Private Sub MFGridInfo_Click()          '选中mfgridinfo中的一行
  MFGridInfo.Col = 0                        '固定该行
  MFGridInfo.ColSel = MFGridInfo.Cols - 1   '该行处于选中状态
End Sub

要删除的数据已经选中，那么接下来就要删除了

Private Sub cmdDel_Click() '删除数据
    Dim strcount As String
    strSQL = "delete from user_info where userid='" & Trim(MFGridInfo.TextMatrix(MFGridInfo.Row, 0)) & "'"  '删除的数据行
    Set rstSQL = ExecuteSQL(strSQL, strMsg)
    MFGridInfo.RemoveItem MFGridInfo.Row        '删除控件显示的数据
    If MFGridInfo.Rows = 1 Then                 '当控件中只显示列名时
        strcount = MsgBox("已无该级别信息，是否添加该级别信息用户？", vbOKCancel)
        cmdDel.Enabled = False          '删除按钮不可用
        If strcount = vbOK Then
            FrmAddUser.Show             '显示添加窗体
        Else
            Exit Sub
        End If
    End If
End Sub