基础问题，来帮帮忙~

CS_D_N 2005-10-13 10:41:33

怎么能在单击DataGird一条数据的时候，把数据显示在旁边的文本框里？
（用鼠标选择）
麻烦最好留段代码好理解，谢谢！

...全文

218 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

CS_D_N 2005-10-15

打赏
举报

谢谢各位！

cpuzky 2005-10-14

打赏
举报

Persist Security Info=False"
'例如你的datagrid1的第一列是记录id,那么
'DataGrid1.Columns(0)就是id
strsql="select * from 表 where id=" & datagrid1.columns(0)
Set rst = New ADODB.Recordset
rst.Open Trim$(strsql), cnn, adOpenKeyset,

上官云峰 2005-10-14

打赏
举报

Private Sub DataGrid1_DblClick()

On Error Resume Next
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strsql As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
'例如你的datagrid1的第一列是记录id,那么
'DataGrid1.Columns(0)就是id
strsql="select * from 表 where id=" & datagrid1.columns(0)
Set rst = New ADODB.Recordset
rst.Open Trim$(strsql), cnn, adOpenKeyset, adLockOptimistic
text1.text=rs.fields("id")
text2.text=.............
..........
End Sub

faysky2 2005-10-13

打赏
举报

Dim rs As New ADODB.Recordset

Private Sub DataGrid1_DblClick()
Text1.Text = rs.Fields(0).Value
End Sub

Private Sub Form_Load()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=123;Initial Catalog=Test;Data Source=WEBSERVICE"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from table1", cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

northwolves 2005-10-13

打赏
举报

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Dim x() As String, i As Integer
ReDim x(DataGrid1.Columns.Count - 1)
For i = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = i
x(i) = DataGrid1.Text
Next
Text1.Text = Join(x, ",")
End Sub