【结帖】[请求] 急问：数据传递**

trickle

想要实现的功能：
    双击DataGrid中的数据记录，弹出一个窗体，窗体中显示该数据记录的详细信息。

问题：弹出的窗体信息是空白的，好像是新建的空白数据记录

代码如下：

procedure TMainForm.DataGridDblClick(Sender:TObject);
var
  MyMainForm:CJCCXT.TCCXTCT;
begin
  CJCCXT.TCCXTCT.Create(self.Context);
  try
   MyMainForm.ShowModal;

  finally
   MyMainForm.free;
  end;
end;   

怎么回事呢？

PS：  CJCCXT.TCCXTCT窗体如图

trickle

急啊！

zfang

datagrid和弹出 窗体用同一个数据集就没事儿了！
（如果弹出窗体是别的表现那就需要你自己去赋值或者定位了）

zfang

procedure TMainForm.DataGridDblClick(Sender:TObject);
var
  MyMainForm:CJCCXT.TCCXTCT;
begin
  CJCCXT.TCCXTCT.Create(self.Context);
  try
   MyMainForm.ShowModal;

  finally
   MyMainForm.free;
  end;
end;   
----------------------
你上面的代码运行后，会报错吧

trickle

运行没错！

trickle

一样的数据集啊

trickle

刚才没错，现在就出错了

procedure TMainForm.BizFormShow(Sender: TObject);
begin
  (GZXXX.TCCCX(DocView1.Doc)).DataGrid.OnDblClick := DataGridDblClick;  //有错

end;

zfang

什么错？报空对象了吧

trickle

没错了，刚才DocVIew1的DocID没写

还是原来的问题：为什么不显示选中的数据记录，而是新建的呢？

zfang

你把你做的贴图看下