Question

双击datagrid中的表格某一行在另一个窗口显示其中的数据

edkh下相关代码如下
Private Sub DataGrid1_DblClick()'双击datagrid1空间时显示当前所选记录的详细数据
If recs > 0 Then
disp.Show vbModal
End If
End Sub

disp代码如下
Private Sub form_load()
If Trim(edkh.Adodc1.Recordset.Fields("姓名")) <> "" Then
Text1(0).Text = edkh.Adodc1.Recordset.Fields("姓名") & ""
Text1(1).Text = edkh.Adodc1.Recordset.Fields("性别") & ""
Text1(2).Text = edkh.Adodc1.Recordset.Fields("出生日期") & ""
Text1(3).Text = edkh.Adodc1.Recordset.Fields("单位") & ""
Text1(4).Text = edkh.Adodc1.Recordset.Fields("职务") & ""
Text1(5).Text = edkh.Adodc1.Recordset.Fields("单位电话") & ""
Text1(6).Text = edkh.Adodc1.Recordset.Fields("手机") & ""
Text1(7).Text = edkh.Adodc1.Recordset.Fields("工作地址") & ""
Text1(8).Text = edkh.Adodc1.Recordset.Fields("客户类型") & ""
Text1(9).Text = edkh.Adodc1.Recordset.Fields("住宅电话") & ""
Text1(10).Text = edkh.Adodc1.Recordset.Fields("家庭地址") & ""
Text1(11).Text = edkh.Adodc1.Recordset.Fields("个人爱好") & ""
Text1(12).Text = edkh.Adodc1.Recordset.Fields("背景信息") & ""
End If
End Sub

可是我双击某个记录 disp是弹出来了，但是每个text都是空白的 这是怎么回事啊？
哪位帮忙解答下 谢谢了！
按照你说的做了，还是不行

ybiwen 我是用VB做的 不是C#

Answer 1

你把赋值的语句放在双击事件中就对了，当另外一个窗口弹出时，他的load事件中无法读adodc的值。
Private Sub DataGrid1_DblClick() '双击datagrid1空间时显示当前所选记录的详细数据
If recs > 0 Then
disp.Show vbModal
If Trim(edkh.Adodc1.Recordset.Fields("姓名")) <> "" Then
disp.Text1(0).Text = edkh.Adodc1.Recordset.Fields("姓名") & ""
disp.Text1(1).Text = edkh.Adodc1.Recordset.Fields("性别") & ""
disp.Text1(2).Text = edkh.Adodc1.Recordset.Fields("出生日期") & ""
disp.Text1(3).Text = edkh.Adodc1.Recordset.Fields("单位") & ""
disp.Text1(4).Text = edkh.Adodc1.Recordset.Fields("职务") & ""
disp.Text1(5).Text = edkh.Adodc1.Recordset.Fields("单位电话") & ""
disp.Text1(6).Text = edkh.Adodc1.Recordset.Fields("手机") & ""
disp.Text1(7).Text = edkh.Adodc1.Recordset.Fields("工作地址") & ""
disp.Text1(8).Text = edkh.Adodc1.Recordset.Fields("客户类型") & ""
disp.Text1(9).Text = edkh.Adodc1.Recordset.Fields("住宅电话") & ""
disp.Text1(10).Text = edkh.Adodc1.Recordset.Fields("家庭地址") & ""
disp.Text1(11).Text = edkh.Adodc1.Recordset.Fields("个人爱好") & ""
disp.Text1(12).Text = edkh.Adodc1.Recordset.Fields("背景信息") & ""
End If
End If
End Sub