博格华纳增压器图片:vb如果捕捉datagrid 所单击行的某一列
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/19 22:54:47
Dim str As String
Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb\student.mdb;Persist Security Info=False"
con.ConnectionString = str
con.Open
con.CursorLocation = adUseClient
rs.Open "select * from class", con, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Private Sub Form_Load()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\vb\student.mdb;Persist Security Info=False"
con.ConnectionString = str
con.Open
con.CursorLocation = adUseClient
rs.Open "select * from class", con, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
Datagrid好像是不行的。Vb的网格控件都做得很恶心~~各有各的缺陷~~~
试试用FlexGrid