工商银行换港币: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

Datagrid好像是不行的。Vb的网格控件都做得很恶心~~各有各的缺陷~~~
试试用FlexGrid