Question

各位高手： 大家好！ VB中EXCEL导入到DATAGRID中后可以显示，要进行记录的移动并且取一条记录值的方法？

以下是我用一个按钮导入excel内数据的代码：

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\excel00表名.xls;Extended Properties='Excel 8.0;HDR=Yes'"
rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockOptimistic
Set DataGrid2.DataSource = rs
执行完成后现在需要取datagrid内一行的记录值可以用什么方法，请高手指正。多谢为盼。

Answer 1

If DataGrid1.SelBookmarks.Count = 1 Then

A= DataGrid1.Columns.Item(0).Text
B=DataGrid1.Columns.Item(1).Text
.........

end if

Answer 2

哇乌眼都花了，我不是高手

Answer 3

DataGrid1_Click

追问

能写具体的代码让我瞧瞧不？

追答

Private Sub DataGrid1_Click()
Debug.Print rs!字段1Name,rs!字段2Name
End Sub