删除MSHFlexGrid中指定行数据，包括数据库里面的数据

    这个是个早就该发布的文章，被我忘在了草稿箱里。
    这几行用来删除MSHFlexGrid中指定行数据，虽然代码不多，但是当时写收费系统的时候也是花了一些时间才写出来，权当知识的积累吧

Dim x As Long '点击行变量'删除指定行的数据x = mygrid.Row' 在数据库中删除相关数据txtsql = "select * from user_info where userid='" & Trim(mygrid.TextMatrix(x, 0)) & "'"Set mrc = ExecuteSQL(txtsql, txtmsg)While mrc.EOF = Falsemrc.Deletemrc.MoveNextWendmrc.Closemygrid.RemoveItem mygrid.RowSelMsgBox "该用户已经成功删除", vbInformation+vbokonly, "删除成功"Exit Sub