【结帖】如何实现这样的结果**

souhuchong01

akon老师，您给我的代码在您那能实现我想要的效果吗？

Akon

procedure TYWXX17.DataSetBZSJJ1FieldChange(DataSet: TDataSet; Field: TDataField);
var
fieldID : string;
begin
fieldID := DataSetBZSJJ1.FieldByName('CPLB').AsString;//Objecthelper.ToString(DataSetBZSJJ1.FieldByName('CPID').NewValue);
     if Field.FieldName = 'CPLB' then
     begin
          DataSetBZSJJ2.close;
          DataSetBZSJJ2.SQL.clear;
          DataSetBZSJJ2.SQL.text:='select distinct(PZX),PZMC from TJFZCB where CPLB='+fieldID+'';
           DataSetBZSJJ2.open;//加上这一句
     end;
end;

souhuchong01

akon,我把您32楼的代码粘在主数据集的onfieldchange事件下。电击运行，界面如图

souhuchong01

然后我在产品ID右侧的下拉列表框里选择产品，刚点击别的产品时抱错。如图：

souhuchong01

我把我的两张表的表结构和预览表发给你。先发主表表结构。主数据集选的是这张表的所有字段。

souhuchong01

从表表结构，从数据集选的是这张表的所有字段。且从数据集和主数据集的依赖字段是CPID。

souhuchong01

主表的预览表

souhuchong01

从表的预览表

souhuchong01

我又把我想实现的效果画了一张图。可能是我描述的不够清楚。

souhuchong01

我贴在主数据集onfieldchange事件下的代码：
unit YWXX1;

interface

uses
  Business.System, Business.Model, Business.Data;

type
  TYWXX1 = class(TInfo)
    DataSetZB: TSQLDataSet;
    DataSetCB: TSQLDataSet;
procedure DataSetZBFieldChange(DataSet: TDataSet; Field: TDataField);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation





procedure TYWXX1.DataSetZBFieldChange(DataSet: TDataSet; Field: TDataField);
var
fieldID:string;
begin
fieldID:=DataSetZB.fieldbyname('CPID').asstring;
if field.fieldname='CPID' then
   begin
     DataSetCB.close;
     DataSetCB.sql.clear;
     DataSetCB.sql.text:='select distinct(PZX),PZMC from CPLBPZB where CPID='+fieldID+'';
     DataSetZB.OPEN;
     DataSetCB.OPEN;
   end;
end;



end.