【搞定】[请求]自定义查询怎么那么难实现？**

songyun

不得呢，我按照你的思路来做。当然，是用我的业务信息来做的。

songyun

代码如下：数据集：dlfxxx,cxtj  自定义数据集里我定义了两个字段，年份、高级管理人才
unit DLFXXX;

interface

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

type
  TDLFXXX = class(TInfo)
    DataSetDLSJJ: TSQLDataSet;
    DataSetCSJJ: TSQLDataSet;
    DataSetCXTJ: TUserDataSet;
    FIELD_CXTJ_GJGLRY: TUserDataField;
    FIELD_CXTJ_NF: TUserDataField;
    procedure  Queryorder(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

procedure  TDLFXXX.QueryOrder(Sender: TObject);
var
  sFilter: String;
begin
  sFilter := '';
  if Length(DataSetCXTJ.FieldByName('gjglry').AsString)>0 then
    sFilter := sFilter + ' AND (gjglry LIKE '''+DataSetCXTJ.FieldByName('gjglry').AsString+'%'')';

   DataSetCXTJ.UserFilter := StringUtils.Copy(sFilter, 5, 10000);
end;


end.


unit XGDJSXX;

interface

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

type
  TXGDJSXX = class(TFormDoc)
    InfoBroker: TInfoBroker;
    nf: TDataLabel;
    DataLabel2: TDataLabel;
    DataSetBroker1: TDataSetBroker;
    DataEdit1: TDataEdit;
    DataEdit2: TDataEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TXGDJSXX.Button1Click(Sender: TObject);
var tt:TDLFXXX;
begin

      tt.QueryOrder(InfoBroker.Info);
end;

end.

songyun

报错信息：警告循环使用"Biz:\RLZYGL\GXRCXGDJS\YWGN5.Func"-->"Biz:\RLZYGL\GXRCXGDJS\DLFXXX.Info"-->"Biz:\RLZYGL\GXRCXGDJS\DLFXXX.Info"

alang

这个是警告信息，不影响的

songyun

可是，我运行的时候，什么效果都没有，窗体是空的/

songyun

我在业务信息下，调试unit XGDJSXX;编译完成，但是提示：
[警告]Biz:\RLZYGL\GXRCXGDJS\DLFXXX.INFO.DIR\XGDJSXX.FormDoc.pas(31, 10): 在'Button1Click'方法中的变量 'tt' 没有初始化

songyun

为什么没有人回应呢？是不是我的需求不明确？

YZQH

如果条件不是输入（dataedit），而是下拉选择呢？

songyun

窗体运行报错如下：

alang

to 26楼，如果是下拉选择，只要在自定义数据集上定义查找属性就可以了