怀化卫生局领导班子:vb如果捕捉datagrid 所单击行的某一列
来源:百度文库 编辑:神马品牌网 时间:2024/05/09 13:22:49
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