点击 VB 中 DataGrid 行 触发事件 弹出窗口 并传递 所点击行参数
来源:互联网 发布:政治地理学知乎 编辑:程序博客网 时间:2024/05/05 16:08
如何实现点击VB中DataGrid行,触发事件弹出窗口,并传递所点击行参数:
通过双击事件来实现的:
Private Sub DataGrid1_DblClick()
Dim frm1 As New frmNew ''定义一个窗体对象frm1,frmNew是程序中的一个窗体
Dim ActiveRow As Integer
On Error GoTo ErrHandle
ActiveRow = DataGrid1.Row '取得当前行号
If DataGrid1.Row >= 0 Then
frm1.flgAddNew = False '设置打开窗体的模式为浏览(或是修改,反正不是新增)
frm1.inId = DataGrid1.Columns(0).Value '将当前行的第1列(记录的ID)传递给窗体
frm1.Show 1
End If
'更新窗体数据(如果在打开窗体中修改了数据,就需要重新刷新DataGrid1的当前行数据)
Call DataView(ActiveRow)
Exit Sub
ErrHandle:
MsgBox "错误提示:" & Err.Description
End Sub
DataView函数的功能就是加载数据到你的DataGrid里面,并将当前行指向你所要的行(在修改或删除记录时)。可以参考以下代码:
Private Sub DataView(Optional ActiveRow As Integer = 0)
On Error GoTo ErrHandle
Set Rs = New ADODB.Recordset
Rs.Open "Select * From Test order by Id", ConnDB, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = Rs
If ActiveRow < Rs.RecordCount And ActiveRow > 0 Then
DataGrid1.Row = ActiveRow
End If
Exit Sub
ErrHandle:
MsgBox "错误提示:" & Err.Description
End Sub
记录明细窗体frmNew中定义了两个变量:
Public flgAddNew As Boolean
Public inId As String
其中flgAddNew是控制窗体到底是以新增记录模式还是查看模式去显示(文本框、按钮等都有变动);
inId则是告诉该窗体如果是要查看记录的话,记录的ID是多少。
所以在查看某条记录时,需要这么写:
frm1.flgAddNew = False
frm1.inId = DataGrid1.Columns(0).Value
- 点击 VB 中 DataGrid 行 触发事件 弹出窗口 并传递 所点击行参数
- datagrid 行点击事件
- 点击DataGrid标题栏触发事件
- JS点击事件触发弹出窗口样式控制
- DataGrid鼠标经过感知以及点击行弹出窗口
- ASP.NET中DataGrid鼠标经过感知以及点击行弹出窗口
- ASP.NET中DataGrid鼠标经过感知以及点击行弹出窗口
- ASP.NET中DataGrid鼠标经过感知以及点击行弹出窗口
- GridView点击行触发事件
- jqgrid 触发行点击事件
- detailview按钮列 点击弹出窗口中使用datagrid
- easyUI-datagrid 点击触发check事件
- Bootstrap Table 插件 触发行点击事件
- Android不规则布局并触发点击事件
- Android弹出窗口点击确定返回事件
- iscroll4中滑动页面触发点击事件
- C# 中 TabPage 控件 点击触发事件
- WPF中,回车触发按钮点击事件
- ubuntu 安装jdk的过程
- 文件上传组件开源软件
- URAL 1542. Autocompletion (线段树+STL)
- 常用正则表达式大全!(例如:匹配中文、匹配html)
- USACOTraining 3.3.1 Riding the Fences 骑马修栅栏 题解
- 点击 VB 中 DataGrid 行 触发事件 弹出窗口 并传递 所点击行参数
- Tomcat 80端口部署域名
- MoveFileEx移动正在使用中的文件
- android SQLite使用SQLiteOpenHelper类对数据库进行操作
- DLL文件脱壳
- C++中成员函数指针的应用
- 静态文本设置类:CLabel
- 七夕特别策划:戏说互联网十大“爱情事故”
- ireport5.0.4子报表参数以及子报表路径问题