比如這個情況，我就需要選中第一行的時候，text1.text=1001
我已經撰寫的代碼：
Option Explicit
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs_findsp As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.ConnectionString = "driver={SQL Server};server=(local);uid=;pwd=;database=market"
cn.Open
rs_findsp.Open ("select 商品號,商品名稱,單價,商品型別,廠商,庫存量 from 商品表 where 商品型別= '" & Combo1.Text & "' "), cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs_findsp
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_findsp
End Sub
Private Sub Form_Load()
Combo1.AddItem "食品"
Combo1.AddItem "飲料"
Combo1.AddItem "日用品"
Combo1.AddItem "乳制品"
Combo1.AddItem "香煙"
End Sub
實在是不會寫，畢竟初學者。求教！萬分感謝！
uj5u.com熱心網友回復：
給你一個通用的方法吧：Sub Test()
Dim iRow As Long, iCol As Long
iRow = 2
iCol = 1
With DataGrid1
Text1.Text = .Columns(iCol).CellValue(.GetBookmark(iRow))
End With
End Sub
這個方法，只要指定行列（都是從0開始的）就可以讀取到相應的值
uj5u.com熱心網友回復：
因為 DataGrid 是與記錄集系結的，且選中 DataGrid 每一列時記錄集的相應記錄也被選中，因此你只需參考記錄中相應的欄位內容。uj5u.com熱心網友回復：
改用mshflexgrid控制元件試試：set mshflexgrid1.datasource=記錄集
private sub mshflexgrid1_click()
textbox1.text=mshflexgrid1.textmatrix(mshflexgrid1.row,0)
end sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/103808.html
上一篇：如何合并多個excel檔案