【搞定】窗体调用的过滤问题**

wulei_doudou_1

我们想通过“原合同编号”=“合同编号”来实现窗体的过滤，我们在在弹出的那个窗体上定义一个变量，在按钮Click事件里给这个变量赋值，在弹出窗体的ｏｐｅｎ事件里根据这个变量过滤，可是实现不了过滤功能，怎么回事？

atiger

你是怎么实行的，把代码贴出来看看

sunwbh

主窗体代码 ：
procedure THTFKJTZ.Button1Click(Sender: TObject);

var
    lForm: HTJBXX.THTXX;
  begin
    lForm :=  HTJBXX.THTXX.Create(Self.Context);
    try
     lForm.lStr := FK.DataSet.FieldByName('YHTBH').AsString;
      lForm.ShowModal;
    finally
      lForm.Free;
    end;
  end;

被调用窗体的代码：
unit HTXX;

interface

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

type
  THTXX = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerHTXX: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    PageControl: TPageControl;
    TabSheet: TTabSheet;
    DocViewHTXX_HTBD: TDocView;
    TabSheet1: TTabSheet;
    DocViewHTXX_XMXXB: TDocView;

    DataSetBroker1: TDataSetBroker;
    procedure DocViewHTXX_HTBDOpen(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
      lStr : String;
  end;

implementation


procedure THTXX.DocViewHTXX_HTBDOpen(Sender: TObject);
begin
  if lStr <> '' then
  begin
  //过滤出FID为lStr数值的数据
  DataSetBroker1.DataSet.Filtered := False;
DataSetBroker1.DataSet.Filter := ' HTBH = ''' + lStr + '''';
  DataSetBroker1.DataSet.Filtered := True;
  end;
end;



end.

zfang

楼主，把这段代码写到窗体的OnShow事件中试试看
procedure THTXX.DocViewHTXX_HTBDOpen(Sender: TObject);
begin
  if lStr <> '' then
  begin
  //过滤出FID为lStr数值的数据
  DataSetBroker1.DataSet.Filtered := False;
DataSetBroker1.DataSet.Filter := ' HTBH = ''' + lStr + '''';
  DataSetBroker1.DataSet.Filtered := True;
  end;
end;

sunwbh

不行啊 ，合同信息窗体还是最新的，不能过滤

yancm

你别设filter,看看弹出的窗口能不能用上一条，下一条的访问到你要的数据？

zfang

不会啊，我试过可以过滤的阿！
是否保存编译迁入刷新缓存了？

wulei_doudou_1

这样是能找到，但是合同要是多的话，客户是不方便的

wulei_doudou_1

帮忙看看

lixy

如果是1对1的合同，可以试试Locate 定位