删除选中MSHFlexGrid控件中的数据

来源:互联网 发布:集体智慧编程 知乎 编辑:程序博客网 时间:2024/06/05 23:51

在编程时,代码越简单越好,让人一看就明白最好了。所以一直出于这个由衷的原则,所以在每次敲代码时,总是根据自己所学到的知识来修改代码,做到最简单,最直接了当的完成事件才不再修改。

        今天在做机房收费系统时遇到点小问题,不知道如何去删除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 IfEnd Sub

	
				
		
原创粉丝点击