'定义模块级变量
Dim NowRow As Integer
第一步:在MSHFlexGrid的MouseDown事件中添加如下代码
Private Sub mfgAddDeleteUser_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
With mfgAddDeleteUser
.Row = .MouseRow
NowRow = .Row
.Col = 0
.ColSel = .Cols - 1
End With
End Sub
第二步:在MSHFlexGrid的MouseUp事件中添加如下代码
Private Sub mfgAddDeleteUser_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
With mfgAddDeleteUser
.RowSel = NowRow
.ColSel = .Cols - 1
End With
End Sub
第三步:在“删除”按钮下添加如下代码
Private Sub cmdDelete_Click()
Dim rstMrc As ADODB.Recordset
Dim strSQL As String
Dim strMsg As String
'在数据库中删除选中记录
strSQL = "delete from User_Info where UserID= '" & Trim(mfgAddDeleteUser.TextMatrix(mfgAddDeleteUser.Row, 0)) & "'"
Set rstMrc = ExecuteSQL(strSQL, strMsg)
'在mfgAddDeleteUser中删除选中记录
mfgAddDeleteUser.RemoveItem mfgAddDeleteUser.Row
End Sub
分享到:
相关推荐
MSHFlexGrid 与access 使用的例子
Set wNewTable = wDoc.Tables.Add(wDoc.Range, MSHFlexGrid1.Rows, MSHFlexGrid1.Cols) For i = 0 To MSHFlexGrid1.Rows - 1 For j = 0 To MSHFlexGrid1.Cols - 1 wNewTable.Cell(i + 1, j + 1).Range.Text =...
MSHFlexGrid控件不管有多少行内容滚动条滑块都非常小,不方便拖动。此代码可以自定义滑块的大小
VB6.0中编辑MSHFlexGrid复选行和列
VB中MSHFlexGrid的使用详细说明
VB数据库编程中MSHFlexGrid控件用法详解
MSHFlexGrid双击插入一行并高亮显示 vb MSHFlexGrid 中新增一行时自动选中新增的那一行并变色 双击需要添加的行,在双击行的上面添加一行并选中
这个代码详细示例了MSHFlexGrid的各种属性方法,并在原有功能上进行扩展,增加了BMP图片插入,单元格背景色自定义,打印预览等功能,对于使用MSHFlexGrid的网友可能是一个不错的代码.
包含VB6中MSHFlexGrid的几个常用方法,如标题行的自动列宽、隔行显示不同背景色、支持鼠标滚动等
在VB中,运用MSHFlexGrid控件进行数据分组显示的一个实例,可以自己规定成批的数据归属于某一组,并非一次列下来,在遇到处理...
要使用该示例,在窗体中放置一个 MSHFlexGrid 控件和一个 ComboBox 控件。把下面的代码粘贴到 Declarations 节,然后按 F5 键。 注意 如果正在使用 MSFlexGrid,用“MSFlexGrid1”代替“MSHFlexGrid1”。
VB中,可编辑列数据的MSHFlexGrid控件
自己写的。关于ACCESS与MSHFLEXGRID的典型应用,包含插入,修改,删除数据,当前行,颜色选中时变化,数据库保存。插入。MSHFLEX控件的数据批量写入。等等。初学者的好资源
VB6.0统计MSHFLexGrid控件中的各种数据
vb中mshflexgrid和datagrid的区别.doc
解决vb MSHFlexGrid行数限制补丁,解压MSHFlxGd.ocx后到C:\WINDOWS\system32覆盖以前版本,然后在工程中把以前的MSHFlexGrid控件删除,重新工程\部件\浏览定位新的MSHFlxGd.ocx,再添加MSHFlexGrid控件即可。
如果程序里面有多个窗体,每个窗体包含多个MSFlexGrid控件,使用这种办法比单独为每个网格控件编写代码方便一些 用文本替换把“MSFlexGrid”替换为“MSHFlexGrid”就可以支持MSHFlexGrid控件了
vb实现一个登陆界面,登陆之后,访问数据库并将数据显示在MSHFlexGrid控件中。MSHFlexGrid控件可以响应双击事件;可以导入导出excel文件。
与MSHFLEXGRID绑定,实现网络的输入,网格保存,加载,查找,模拟EXCEL输入. http://blog.csdn.net/MSTOP
vb MSHFlexGrid带数据库版本的MSHFlexGrid用法例子,若你对此数据加控件用法不熟悉,本源码非常适合你。