Question

DELPHI获取另一个窗体中的DBGRID的数据问题

第一个窗体 点击上面第一个窗体中的DBGRID中材料品号的按钮,弹出下面第二个窗体,如下图 第二个窗体. 选中第二个窗体中的某一条记录,用一个按钮将选中的记录的品号,品名,规格显示到第一个窗体的品号,品名,规格列里.这个按钮的代码怎么写 

Answer 1

按下列步骤来写即可达到效果
1、把第二个窗体以Showmodal的方式打开；
2、第二个窗体定义品号,品名,规格三个只读属性，完成Get方法
3、第一个窗体按钮事件里面写
第二个窗体假设为form2,第一个窗体的DBGrid关联的数据集假设为AdoQuery1
form2 :=Tform2.Create;
if(form2.ShowModal = mrOK) then
begin
AdoQuery1.Edit;
AdoQuery1.fieldbyName(品名).Asstring:=form2.品名;//逐个给字段赋值;
................
AdoQuery1.Post;
end;
form2.free;

Answer 2

在窗体2单元文件里面

uses
窗体1单元文件;

在按钮里面写上
窗体1.dbgrid.dataset.edit;
窗体1.dbgrid.dataset.fieldbyname('品号').value := self.dbgrid.dataset.fieldbyname('品号').value;//注意数据类型
...
窗体1.dbgrid.dataset.post;
窗体1.dbgrid.dataset.refresh;

Answer 3

你不能再你第二窗体显示前把数据插入进去然後再读取？以你现在这样直接去写和读数据除非你用指针，否则不是内存报错就是卡死！