急!!!VB中DataGrid 控件怎么通过“选择行标头”来触发事件?
VB中DataGrid控件现已显示出了一个表那我怎么通过选择表的行标头(就是会出现小黑箭头那个位置,点一下就会选中一整行)来触发一个事件?注:我用了HeadClick事件...
VB中DataGrid 控件
现已显示出了一个表
那我怎么通过选择表的行标头(就是会出现小黑箭头那个位置,点一下就会选中一整行)来触发一个事件?
注:我用了HeadClick事件,但好像不行~
请高手指点
这个回答里的代码能否解释一下,怎么可以实现“行选”? 展开
现已显示出了一个表
那我怎么通过选择表的行标头(就是会出现小黑箭头那个位置,点一下就会选中一整行)来触发一个事件?
注:我用了HeadClick事件,但好像不行~
请高手指点
这个回答里的代码能否解释一下,怎么可以实现“行选”? 展开
展开全部
Option Explicit
Dim cn As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub DataGrid1_Click()
Text1 = DataGrid1.Columns(2)
Text2 = DataGrid1.Columns(1)
End Sub
Private Sub Form_Load()
sql = "select * from jishijilu where car_bm like 'DF160%'"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB_program\kongtiao\CarTemp.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
补充:如何实现“行选”
鼠标移到DataGrid控件的左侧无数据处,鼠标箭头变为横向箭头,然后移动鼠标到你想选中的记录处,点击鼠标,该行数据整行被选中底色和字体色变化.
它同时触发DataGrid1_Click,你可在该事件中写需执行的代码.
Dim cn As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub DataGrid1_Click()
Text1 = DataGrid1.Columns(2)
Text2 = DataGrid1.Columns(1)
End Sub
Private Sub Form_Load()
sql = "select * from jishijilu where car_bm like 'DF160%'"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\VB_program\kongtiao\CarTemp.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
补充:如何实现“行选”
鼠标移到DataGrid控件的左侧无数据处,鼠标箭头变为横向箭头,然后移动鼠标到你想选中的记录处,点击鼠标,该行数据整行被选中底色和字体色变化.
它同时触发DataGrid1_Click,你可在该事件中写需执行的代码.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询