查找属性，如何动态设置过滤范围？**

tdwoo

//---------------
                     lBizField:=TBizDataSet(dsbgzxx.DataSet).FindBizField('gzms');
                      if lBizField <> nil then
                      begin
                          with   lBizField do
                          begin
                              LookupDef.kind:=  TLookupKind.lkDataValues;    //查找类型
                              LookupDef.ValidateKind   := TLookupValidateKind.vkMust;   //查找值范围
                              LookupDef.SQL.Text       := 'select GZBM, GZXX from  gzms  where gzcp= ' + sysutils.QuotedStr(vQuery.FieldByName('cplx').AsString);                          // 查找数据集的SQL 语句
                              LookupDef.KeyField       := 'GZBM' ;          //关键字段
                              LookupDef.DisplayField   := 'GZXX';  //显示字段
                              LookupDef.DropDownButton := True; //是否显示下拉
                          end;
                      end;

tdwoo

上面的是代码设置的。


在逻辑表中， 没有条件过滤。

select GZBM, GZXX from  gzms  order by gzxx

gaihl

加上两句,试试
TSQLDataSet(Db1.DataSet).GetLookupData('actch').Refresh ;
TSQLDataSet(Db1.DataSet).LayoutChange ;

atiger

LayoutChange 一下 当前的数据集，TSQLDataSet(dsbRKDMX.Dataset).LayoutChange;

tdwoo

Db1.DataSet  ----  db1 是什么意思？

GetLookupData('actch').  -----  actch  又是什么意思？

gaihl

你得根据你的数据集和字段名改一下才行:
TBizDataSet(dsbgzxx.DataSet).FindBizField('gzms');

TSQLDataSet(dsbgzxx.DataSet).GetLookupData('gzms').Refresh ;
TSQLDataSet(dsbgzxx.DataSet).LayoutChange ;

tdwoo

我试一下

tdwoo

还是一样的效果。


                  //---------------
                     lBizField:=TBizDataSet(dsbgzxx.DataSet).FindBizField('gzms');
                      if lBizField <> nil then
                      begin
                          with   lBizField do
                          begin
                              LookupDef.kind:=  TLookupKind.lkDataValues;    //查找类型
                              LookupDef.ValidateKind   := TLookupValidateKind.vkMust;   //查找值范围
                              LookupDef.SQL.Text       := 'select GZBM, GZXX from  gzms  where gzcp= ' + sysutils.QuotedStr(vQuery.FieldByName('cplx').AsString);                          // 查找数据集的SQL 语句
                              LookupDef.KeyField       := 'GZBM' ;          //关键字段
                              LookupDef.DisplayField   := 'GZXX';  //显示字段
                              LookupDef.DropDownButton := True; //是否显示下拉
                          end;
                      end;
                    TSQLDataSet(dsbgzxx.DataSet).GetLookupData('gzms').Refresh ;
                    TSQLDataSet(dsbgzxx.DataSet).LayoutChange ;


都是显示所有的数据

atiger

1、把 TBizDataSet(dsbgzxx.DataSet).FindBizField('gzms'); 修改为 TSQLDataSet(dsbgzxx.DataSet).FindBizField('gzms');

2、请问，你这个代码写到哪个事件上了，你放到一个不同的button按钮上试试。

3、你跟踪过代码吧？执行到重新给字段赋查找属性的值吧

如果上面都测试了，请问，你使用的版本号（Studio的版本号）是多少？2827是有这个缺陷，3002版本没有这个问题了

tdwoo

我放在同一个按钮下，但是，我更改了条件。


版本：3012

跟踪了。
LookupDef.SQL.Text       := 'select GZBM, GZXX from  gzms  where gzcp= ' + sysutils.QuotedStr(vQuery.FieldByName('cplx').AsString);      

这个值有变化。