MSHflexgrid控件删除选中行

最新推荐文章于 2015-08-29 20:53:41 发布

weixin_30951389

最新推荐文章于 2015-08-29 20:53:41 发布

阅读量220

点赞数

原文链接：http://www.cnblogs.com/saixing/p/6730382.html

版权

本文介绍了一个使用VBA编写的程序片段，该程序用于从名为Online_Info的表中删除特定记录。首先检查用户是否选择了某一行，如果没有选择则会显示警告。如果选择了行，则从表中删除所选卡号的记录，并从myflexgrid控件中移除相应的行。

摘要由CSDN通过智能技术生成

相应的代码：

Private Sub some_Click()
'定义变量
    Dim txtSQL As String
    Dim MsgText As String
    Dim Online_mrc As ADODB.Recordset
    Dim mrc1 As ADODB.Recordset
    Dim txtStr As String
    Dim MsgTxt As String
    Dim mm As String
                                    '没有选中行时，提示用户
    If myflexgrid.RowSel - 1 = 0 Then
        MsgBox "请选中要下机的行！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
                                    '在Online_Info表中查询
    txtSQL = "select * from Online_Info"
    Set Online_mrc = ExecuteSQL(txtSQL, MsgText)
    
    mm = Trim(myflexgrid.TextMatrix(myflexgrid.RowSel, 0))    '返回你选中行的字段对应的值
    
                                                           '将Online_Info表中被选中卡号的记录删除
    txtStr = "delete from Online_Info where cardno='" & mm & "'"
    Set mrc1 = ExecuteSQL(txtStr, MsgTxt)
       
                                        '清除myflexgrid中的选中行
    myflexgrid.RemoveItem (myflexgrid.RowSel)
    
                                               
End Sub

MSHFlexGrid基本属性：

CellAlignment 设置返回一个值以定义当前单元的水平和垂直方式

CellFontName 定义当前单元的字体名

CellPicture 设置/返回当前单元格的图片

CellTop，CellWidth

Cols 设置/返回网格的列数量

Row 设置/返回当前单元的垂直坐标

Rowsel 设置/返回某个范围单元的起始列

ScrollBars 设置/返回一个值表明MSHFLEXGRID控件的滚动条类型

重要方法：

Additem

Clear