代码控制查找属性

hanbei20

在一窗体上有两个DataGrid，当用户选择其中一个DataGrid中的某一数据时，另一DataGrid中一字段的查找属性所查找的数据需要改变，也就是查找属性中数据查找的过滤条件需要改变一下。
我这样写
DataSetSBMC.FieldByName('XMMC').LookupDataSet.Filter := '';
当执行到这一句时报出下面的错误，这是怎么回事？

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=3719

hanbei20

按照LS的给的帖子写出来不行呢，下面是我的代码：
DataSetSBMC.Close;
    lBizField := TBizDataSet(DataSetSBMC).FindBizField('XMMC');
    if lBizField <> nil then
    begin
      lBizField.LookupDef.Kind := TLookupKind.lkDataValues;
      lBizField.LookupDef.ValidateKind := TLookupValidateKind.vkAutoAdd;
      //lBizField.LookupDef.BizDataSet := TBizRef(DataSetJYXM);
      lBizField.LookupDef.SQL.Text := 'SELECT XMMC FROM JYXMB WHERE JDBH=''' + DataSetBroker1.DataSet.FieldByName('BH').AsString + ''' AND ZLBS=''' + DataSetJYBZ.FieldByName('ZLBS').AsString + ''' order by xsxh asc';
      lBizField.LookupDef.KeyField := 'XMMC';
      lBizField.LookupDef.DisplayField := 'XMMC';
      lBizField.LookupDef.DropDownButton := true;
    end;
    DataSetSBMC.Open;

zfang

TSQLDataSet(DataSetBroker1.DataSet).LayoutChange;
调用一下这句话。

hanbei20

加上LS那句也不行

jiahaiming

那就只能重新打开数据集了。