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

发布时间：2020-12-15 01:15:13 所属栏目：百科来源：网络整理

导读：? ? 这个是个早就该发布的文章，被我忘在了草稿箱里。 ? ? 这几行用来删除MSHFlexGrid中指定行数据，虽然代码不多，但是当时写收费系统的时候也是花了一些时间才写出来，权当知识的积累吧 Dim x As Long '点击行变量'删除指定行的数据x = mygrid.Row' 在数据

? ? 这个是个早就该发布的文章，被我忘在了草稿箱里。
? ? 这几行用来删除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 = False
mrc.Delete
mrc.MoveNext
Wend
mrc.Close
mygrid.RemoveItem mygrid.RowSel
MsgBox "该用户已经成功删除",vbInformation+vbokonly,"删除成功"
Exit Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!