工商银行换港币:vb如果捕捉datagrid 所单击行的某一列
来源:百度文库 编辑:高校问答 时间:2024/04/27 04:38:20
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