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