删除选中MSHFlexGrid控件中的数据
发布时间:2020-12-15 04:08:01 所属栏目:百科 来源:网络整理
导读:在编程时,代码越简单越好,让人一看就明白最好了。所以一直出于这个由衷的原则,所以在每次敲代码时,总是根据自己所学到的知识来修改代码,做到最简单,最直接了当的完成事件才不再修改。 ? ? ? ? 今天在做机房收费系统时遇到点小问题,不知道如何去删除MS
在编程时,代码越简单越好,让人一看就明白最好了。所以一直出于这个由衷的原则,所以在每次敲代码时,总是根据自己所学到的知识来修改代码,做到最简单,最直接了当的完成事件才不再修改。 ? ? ? ? 今天在做机房收费系统时遇到点小问题,不知道如何去删除MSHFlexGrid中的数据并且连带着把数据库中的数据删了,上网查了好多方法,看了很多人写的代码,自己也有点体会。所以就想把自己写的分享出来,供大家参考,也想让大家给点意见,嘿嘿。 ? ? ? ? 要想删除MSHFlexGrid中的数据,我们得先选中你要删除的数据行。那怎样选中呢!我下面就把怎样选中的代码分享出来。 Private Sub MFGridInfo_Click() '选中mfgridinfo中的一行
MFGridInfo.Col = 0 '固定该行
MFGridInfo.ColSel = MFGridInfo.Cols - 1 '该行处于选中状态
End Sub
要删除的数据已经选中,那么接下来就要删除了
Private Sub cmdDel_Click() '删除数据 Dim strcount As String strSQL = "delete from user_info where userid='" & Trim(MFGridInfo.TextMatrix(MFGridInfo.Row,0)) & "'" '删除的数据行 Set rstSQL = ExecuteSQL(strSQL,strMsg) MFGridInfo.RemoveItem MFGridInfo.Row '删除控件显示的数据 If MFGridInfo.Rows = 1 Then '当控件中只显示列名时 strcount = MsgBox("已无该级别信息,是否添加该级别信息用户?",vbOKCancel) cmdDel.Enabled = False '删除按钮不可用 If strcount = vbOK Then FrmAddUser.Show '显示添加窗体 Else Exit Sub End If End If End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |