MSHflexgrid控件删除选中行

MSHflexgrid控件删除选中行

相应的代码：

Private Sub some_Click()
'定义变量
    Dim txtSQL As String
    Dim MsgText As String
    Dim Online_mrc As ADODB.Recordset
    Dim mrc1 As ADODB.Recordset
    Dim txtStr As String
    Dim MsgTxt As String
    Dim mm As String
                                    '没有选中行时，提示用户
    If myflexgrid.RowSel - 1 = 0 Then
        MsgBox "请选中要下机的行！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
                                    '在Online_Info表中查询
    txtSQL = "select * from Online_Info"
    Set Online_mrc = ExecuteSQL(txtSQL, MsgText)
    
    mm = Trim(myflexgrid.TextMatrix(myflexgrid.RowSel, 0))    '返回你选中行的字段对应的值
    
                                                           '将Online_Info表中被选中卡号的记录删除
    txtStr = "delete from Online_Info where cardno='" & mm & "'"
    Set mrc1 = ExecuteSQL(txtStr, MsgTxt)
       
                                        '清除myflexgrid中的选中行
    myflexgrid.RemoveItem (myflexgrid.RowSel)
    
                                               
End Sub