单击Datagrid控件的一条记录，如何在一系列Textbox中显示被选中记录各字段的值

[chengzhi81]

单击Datagrid控件的一条记录，如何在一系列Textbox和Combo中显示该条被选中记录各字段的值？

谢谢

[GGL123]

Private Sub Datagrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim i As Integer
Dim aa As String
For i = 0 To Datagrid1.Columns.Count - 1
Dg_hx.Col = i
aa = aa & " " & Datagrid1.Text '同理换成用text显示就行了
Next
MsgBox aa
End Sub

[chengzhi81]

看不太明白，大侠能否给解释一下呢？
比如Dg_hx是什么变量，
如果下边是text1或者combo1怎么替换呢？
谢谢

[GGL123]

Private Sub Datagrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim i As Integer
'Dim aa As String
For i = 0 To datagrid1.Columns.Count - 1
datagrid1.Col = i '应是datagrid1
'aa = aa & " " & datagrid1.Text '同理换成用text显示就行了
If datagrid1.Columns(i).DataField = "zd1" Then
text1.Text = datagrid1.Text '这样即可显示在text1
ElseIf datagrid1.Columns(i).DataField = "zd2" Then
text2.Text = datagrid1.Text '这样即可显示在text2
End If
Next
'MsgBox aa
End Sub

[GGL123]

zd1 zd2 为字段名，或者判断列名也行。datagrid1.Columns(i).Text

[GGL123]

combo1就更简单了，不要判断只add进去就行了

[daisy8675]

Option Explicit

Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection

Private Sub DataGrid1_Click()
With Me.Combo1
.Clear
.AddItem Rs(0)
.AddItem Rs(1)
.AddItem Rs(2)
End With

Text1.Text = Rs(0)
text2.Text = Rs(1)
End Sub

Private Sub Form_Load()
Dim strConn As String
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=ANYA"
Conn.CursorLocation = adUseClient
Conn.Open strConn

If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "Select * from Jobs", Conn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = Rs
End Sub