起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 363|回复: 21

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

[复制链接]
发表于 2008-4-17 14:47:03 | 显示全部楼层 |阅读模式
想要实现的功能:
    双击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窗体如图

chuangti.jpg

21.59 KB, 下载次数: 146

回复

使用道具 举报

 楼主| 发表于 2008-4-17 15:05:51 | 显示全部楼层
急啊!
回复 支持 反对

使用道具 举报

发表于 2008-4-17 15:11:10 | 显示全部楼层
datagrid和弹出 窗体用同一个数据集就没事儿了!
(如果弹出窗体是别的表现那就需要你自己去赋值或者定位了)
回复 支持 反对

使用道具 举报

发表于 2008-4-17 15:17:03 | 显示全部楼层
procedure TMainForm.DataGridDblClick(Sender:TObject);
var
  MyMainForm:CJCCXT.TCCXTCT;
begin
  CJCCXT.TCCXTCT.Create(self.Context);
  try
   MyMainForm.ShowModal;

  finally
   MyMainForm.free;
  end;
end;   
----------------------
你上面的代码运行后,会报错吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-17 15:36:57 | 显示全部楼层
运行没错!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-17 15:37:48 | 显示全部楼层
一样的数据集啊
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-17 15:48:25 | 显示全部楼层
刚才没错,现在就出错了

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

end;
回复 支持 反对

使用道具 举报

发表于 2008-4-17 16:11:36 | 显示全部楼层
什么错?报空对象了吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-17 16:17:46 | 显示全部楼层
没错了,刚才DocVIew1的DocID没写

还是原来的问题:为什么不显示选中的数据记录,而是新建的呢?
回复 支持 反对

使用道具 举报

发表于 2008-4-17 16:37:45 | 显示全部楼层
你把你做的贴图看下
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 17:57 , Processed in 0.045132 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表