机房收费系统之选中MSHFlexGrid中的某条记录进行删除
2013-08-21 10:56
302 查看
'定义模块级变量 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
相关文章推荐
- 机房收费系统错误记录——sql server删除记录错误
- 机房收费系统遇到的问题(一) datagridview一次性移除多行选中数据,同时删除数据库数据
- 机房收费系统问题记录
- 机房收费系统登录模块代码记录
- 机房收费系统之添加删除用户
- 《机房收费系统文档》书写记录0
- 机房收费系统登录功能的代码记录
- 机房收费系统登录模块代码记录
- 机房收费系统错误记录——发现冲突名称
- 机房收费系统之问题记录(2)
- 机房收费系统之添加删除用户
- 机房收费系统登录功能的代码记录
- 机房收费系统——学生充值记录
- 机房收费系统之问题记录(1)
- 【机房收费系统】MSHflexgrid的使用(完整)
- 【机房收费系统】如何查询固定时间段内的数据MSHflexGrid
- 机房收费系统——添加删除用户窗体
- 机房收费系统---将mshflexgrid控件的记录导出到excel
- 机房收费系统之删除用户
- 机房收费系统之添加和删除用户