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

souhuchong01

想实现：
1.先选产品
2.跟着下面的“配置项” 列出所选产品下的二级分类目录
3."配置名称"以下拉列表框的形式分别列出每一个二级目录下的可选项供用户选择。
现在困难出现在第2步。

lixy

lisb

[Justep Member]

参考：http://bbs.justep.com/forum.php?mod=viewthread&tid=1946&
在字段的数据改变的时候对配置项数据集做过滤。

Akon

楼主,下方是例子,你可以试一下

Akon

var
FileID : string;
begin
FileID := DataSetBZSJJ1.FieldByName('CPLB').AsString;
//FileID := Field.AsString;//Objecthelper.ToString(DataSetBZSJJ1.FieldByName('CPID').NewValue);
     if Field.FieldName = 'CPLB' then
     begin
          DataSetBZSJJ2.SQLFilter := 'CPID = '''+FileID+'''';
          DataSetBZSJJ2.SQLFiltered := True;
     end;

souhuchong01

akon，我把你的代码写进业务信息里的主数据集的onfieldchange事件里，把控件名字改一下。还是抱错。
unit YWXX1;

interface

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

type
  TYWXX1 = class(TInfo)
    DataSetCPZSJJ: TSQLDataSet;
    DataSetCPPZCSJJ2: TSQLDataSet;
    procedure DataSetCPZSJJFieldChange(DataSet: TDataSet; Field: TDataField);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TYWXX1.DataSetCPZSJJFieldChange(DataSet: TDataSet; Field: TDataField);

var
fieldID:string;
begin
fieldID:=datasetcpzsjj.fieldbyname('CPLB').asstring;
if field.fieldname='CPLB' then
   begin
     datasetcppzcsjj2.sqlfilter:='CPLB='+fieldID+'';
     datasetcppzcsjj2.SQLFiltered:=true;
   end;
end;
end.

souhuchong01

如图

Akon

楼主,你用这个包吧

souhuchong01

导入报错贴图

souhuchong01

导入报错图

souhuchong01

导入结束报错图