MSHflexgrid控件剔除选中行

MSHflexgrid控件删除选中行

相应的代码：

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

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

CellFontName  定义当前单元的字体名

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

CellTop，CellWidth

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

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

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

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

重要方法：

Additem

Clear

RemoveItem

1楼lfmilaoshi昨天 21:29

这些都是最常用的计算机技术，不断的积累不断的提高。