在VB中生成一个表格,小弟我想双击表格中的某一条记录,则这一条记录的内容会在一个新窗口中显示出来,应怎样做呀

在VB中生成一个表格,我想双击表格中的某一条记录,则这一条记录的内容会在一个新窗口中显示出来,应怎样做呀
在VB中生成一个表格,我想双击表格中的某一条记录,则这一条记录的内容会在一个新窗口中显示出来,应怎样做呀

------解决方案--------------------
定义一个全局字符串变量
双击的时候 赋值
弹出新窗口 再将字符串变量赋值给新窗口的某个text框
------解决方案--------------------
这个不难,不过要看显示表格内容是什么控件了,只需要对该控件编程即可!
显示信息可以通过另一个窗体SHOW出来!
------解决方案--------------------
datagrid就可以
------解决方案--------------------
Option Explicit
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub DataGrid1_Click()
Dim i As Integer
For i = 0 To 2 '2为实际列数减1
Form2.Text1(i) = rs.Fields(i)
Next i
End Sub

Private Sub Form_Load()
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\hxrkgl.mdb;Persist Security Info=False "
db.Open
rs.CursorLocation = adUseClient
rs.Open "select * from mdlk_sj where 批号= 'D111C ' and 日期> = '2005-01-01 ' ", db, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
Text1 = rs.Fields(0)
Text2 = rs.Fields(1)
End Sub

------解决方案--------------------
看你用的是哪个控件了
你选用控件的DblClick就能很好的控制了,因为是双击一般是Select了的(偶尔还是有例外的比如压根就没纪录呢?所以这里最好检查有数据没,没就直接退出),所以你可以返回选择的Index,根据这个Index取出该行纪录的属性,然后你想用表现方式就可以怎么表现。
------解决方案--------------------
昨天刚写的,正好你能看看
Private Sub VSFG_DblClick()
With VSFG
If .Rows <= .FixedRows Then Exit Sub
If .Row < .FixedRows Then Exit Sub

If fLotIDData Is Nothing Then
Set fLotIDData = New frmLotIDData
Else

End If
fLotIDData.TxtLotID = (.TextMatrix(.Row, 1))
fLotIDData.CmbDB.Text = (.TextMatrix(.Row, 0))
fLotIDData.Option1.Item(0).Value = True

fLotIDData.setStrLotID (.TextMatrix(.Row, 1))
fLotIDData.setsDB (.TextMatrix(.Row, 0))
fLotIDData.setsTable ( "Batch_list_temp ")
fLotIDData.DOSetGRID
fLotIDData.Show 1

End With
End Sub
------解决方案--------------------
Private Sub DataGrid1_Click()
frmXianshi.Text1 = DataGrid1.Columns(0)
frmXianshi.Text2 = DataGrid1.Columns(1)

frmXianshi.Text9 = DataGrid1.Columns(9)
frmXianshi.Show
End Sub