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

Question

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

Answer 1

定义一个全局字符串变量
双击的时候 赋值
弹出新窗口 再将字符串变量赋值给新窗口的某个text框

Answer 2

这个不难，不过要看显示表格内容是什么控件了，只需要对该控件编程即可！
显示信息可以通过另一个窗体SHOW出来！

Answer 3

Option Explicit
Dim db As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Command1_Click()
Form2.Show
End SubPrivate Sub DataGrid1_Click()
Dim i As Integer
For i = 0 To 2 '2为实际列数减1
Form2.Text1(i) = rs.Fields(i)
Next i
End SubPrivate 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

Answer 4

看你用的是哪个控件了
你选用控件的DblClick就能很好的控制了，因为是双击一般是Select了的（偶尔还是有例外的比如压根就没纪录呢？所以这里最好检查有数据没，没就直接退出），所以你可以返回选择的Index，根据这个Index取出该行纪录的属性，然后你想用表现方式就可以怎么表现。

Answer 5

昨天刚写的，正好你能看看
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

Answer 6

Private Sub DataGrid1_Click() 
frmXianshi.Text1 = DataGrid1.Columns(0) 
frmXianshi.Text2 = DataGrid1.Columns(1) frmXianshi.Text9 = DataGrid1.Columns(9) 
frmXianshi.Show 
End Sub