环境链问题**

jiahaiminghr

关键要看你的合同单位选择是怎么做的！

beidou

“合同单位选择”里定义了一个dataset：Tdataset，字段单击事件里创建“合同单位选择”后，给dataset赋值为字段所在数据集。

合同单位里当双击一条单位记录时，dataset.fieldbyname（‘id’）：= 当前所选记录。
close窗体。

beidou

implementation
uses Business.Forms,INFOCONTRACTAPPROVE//uses本信息;

//------------------弹出窗体方法------------------------------//
procedure TINFOCONTRACTAPPROVE.ShowFormContractorSelect;
var   lTWinContractorSelect: TWinContractorSelect;
begin
  lTWinContractorSelect := TWinContractorSelect.Create(Context);
  try
    lTWinContractorSelect.DataSet:= DataSetContractApproveReport;
    lTWinContractorSelect.ShowModal;
  finally
    lTWinContractorSelect.Free;
  end;
end;
//-----------------字段单击事件------------------------------//
procedure TINFOCONTRACTAPPROVE.FIELD_ContractApproveReport_contractor_idButtonClick(Sender: TObject);
begin
  ShowFormContractorSelect;
end;

beidou

public
    {public declarations}
    DataSet:TDataSet;

implementation

procedure TWinContractorSelect.ButtonCancelClick(Sender: TObject);
begin
close;
end;

procedure TWinContractorSelect.ButtonOKClick(Sender: TObject);
begin
  //select Contractor;
  with DataSet do
  begin
  if IsEmpty then
       Append
    else
       Edit;
   FieldByName('ID').AsInteger:=
     DataSetBrokerContractor.DataSet.FieldByName('ID').AsInteger;
  end;
end;

procedure TWinContractorSelect.BizFormShow(Sender: TObject);
begin
  DataSetBrokerContractor.DataSet.Open;
end;

jiahaiminghr

我可以啊
你看看

jiahaiminghr

2

beidou

第一个文件下载不了
QQ：56814662

beidou

第二个，下载了，打不开。

jiahaiminghr

1楼的问题：
应该是你在功能中调用这个窗体的方法不对，你不要在功能中直接创建窗体，而是先创建信息，再调用信息的方法在信息的环境下创建窗体。

beidou

我在信息里调用功能。不是在功能中调用。
顺便UP一下