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

最新推荐文章于 2023-04-19 10:07:14 发布

「已注销」

最新推荐文章于 2023-04-19 10:07:14 发布

阅读量1.8k

点赞数 4

文章标签：数据库 user

本文链接：https://blog.csdn.net/lidatgb/article/details/6691957

版权

这个是个早就该发布的文章，被我忘在了草稿箱里。
这几行用来删除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