加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 百科 > 正文

怎样删除MSHFlexGrid控件中指定的记录

发布时间:2020-12-15 03:59:38 所属栏目:百科 来源:网络整理
导读:做机房收费系统不免要遇到这个问题,那就是删除MSHFlexGrid控件里指定的记录,这也是前几天我一直纠结的一个问题,不知道该怎么做,现在学会了,我要把它记录下来,因为这是我的成长记录,呵呵。 我们不仅要删除MSHFlexGrid控件中指定的记录,还要删除数据库

做机房收费系统不免要遇到这个问题,那就是删除MSHFlexGrid控件里指定的记录,这也是前几天我一直纠结的一个问题,不知道该怎么做,现在学会了,我要把它记录下来,因为这是我的成长记录,呵呵。

我们不仅要删除MSHFlexGrid控件中指定的记录,还要删除数据库里所对应的记录。

那么首先删除MSHFlexGrid控件中指定的记录该怎么做,查了查百度,是这样写的: ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?Dim HaveSelected As Boolean

Private Sub Form_Load()
? ??MSHFlexGrid1.SelectionMode = flexSelectionByRow '设置MSHFlexGrid1的选择方式是按行选择
? ? HaveSelected = False '设置标志,防止没选择就删除
End Sub

Private Sub MSHFlexGrid1_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
? ? HaveSelected = True '设置标志允许删除
End Sub

private ?sub delete_click()

If HaveSelected = True Then

MSHFlexGrid1.RemoveItem MSHFlexGrid1.RowSel '删除选中的行
但是这样只是删除了MSHFlexGrid控件中的记录,数据库里对应的内容根本没有删除,但是怎样找到对应的记录来查询并删除呢,原来是用到了这样一个语句

Dim a As String
a = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel,0)

就能锁定到这条记录,然后查询并删除
txtSQL = "select * from User_Info ?where userid= '" & a & "'"
Set mrc = ExecuteSQL(txtSQL,MsgText)

就这样,这个功能就实现了。

(编辑:李大同)

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

    推荐文章
      热点阅读