我希望在Datagrid的控件上，双击某条记录

Question

我希望在Datagrid的控件上，双击某条记录,然后弹出一个对
话框（此对话框只有一个ADODC控件和三个文本框）这三个文本框也相应移动
到在Datagrid的控件上双击的记录的内容,请问该如何实现？

Answer 1

直接取datagrid中的内容就行了,不用adodc在查一遍.

Answer 2

http://expert.csdn.net/Expert/topic/1555/1555609.xml?temp=.4140283'========================================================
'六、如何取出DataGrid控件选定行的内容
'========================================================Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DataGrid1.Row = DataGrid1.RowContaining(Y)
MsgBox DataGrid1.Columns(0).Text
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=SERVER"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from test"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowUpdate = False
End Sub

Answer 3

xmnumber = DataGrid1.Columns(0).Text
   Set myre4 = New ADODB.Recordset
     myre4.Open "select * from table1where 编号=" & xmnumber, cnn2, adOpenDynamic, adLockPessimistic
form2.show
  在form2上由三个text组成
把这三个text框的位置计算出来覆盖在datagrid的响应的列上。

Answer 4

在
Private Sub DataGrid1_DblClick()
xmnumber = DataGrid1.Columns(0).Text
   Set myre4 = New ADODB.Recordset
     myre4.Open "select * from table1where 编号=" & xmnumber, cnn2, adOpenDynamic, adLockPessimistic
form2.show
  end sub

Answer 5

在DataGrid1_DblClick()加代码：
DataGrid1.SetFocus
mgsbox DataGrig1.Row '行号
msgbox dataGrig1.Column.Item(2)'第二列的值with ADODC1
    .Recordset.move DataGrig1.Row
    .Refresh
end with
 

Answer 6

我的意思是第一界面用datagrid显示记录,双击一条记录后,进入第二界面(此界面只有一个ADODC控件和三个文本框)三个文本框显示的是这条记录的信息（即当前信息），用adodc1仍然可以翻看其他记录。

Answer 7

Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DataGrid1.Row = DataGrid1.RowContaining(Y)
Form2.Text1.Text = DataGrid1.Columns(0).Text
Form2.Text2.Text = DataGrid1.Columns(1).Text
Form2.Text3.Text = DataGrid1.Columns(2).Text
End SubPrivate Sub Form_Load()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=SERVER"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from test"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowUpdate = False
End Sub

Answer 8

谢谢晴明，我再问一下怎样把DataGrig1.Row传到第二界面，解决了马上给分