【搞定】这个功能怎么实现？**

yanyequan

假设主窗体上的数据集代理是：DataSetBroker1，弹出窗体的名字是 TForm1，数据集代理是：DataSetBroker2，在主窗体按钮事件里写代码：

with TForm1.Create(nil) do
  try
    if ShowModal = Business.Forms.Controls.mrOk then
    begin
      DataSetBroker1.DataSet.Edit;
      DataSetBroker1.DataSet.FieldByName('供货单位').AsString := DataSetBroker1.DataSet.FieldByName('供货商').AsString;
    end;
  finally
    Free;
  end;

在弹出窗体的 DataGrid 的双击事件里写代码：

Self.ModalResult := Business.Forms.Controls.mrOk；

刺青

OK了,我要的就是这句: Self.ModalResult := Business.Forms.Controls.mrOk;
谢谢了
结贴

atiger

谢谢 yanyequan

好，结贴