【结贴】自定义查找属性 ，报错！**

tdwoo

我原来成功了一次，这次一样的写法，为何报错？

tdwoo

procedure TZJCPJTGG.BizFormShow(Sender: TObject);
var
   lBizField: TBizField;
begin
     //
     dsbZJQXJTGGXH.DataSet.Open;
     lBizField:=TBizDataSet(dsbZJQXJTGGXH.DataSet).FindBizField('XH');
     if lBizField <> nil then
     begin
        with   lBizField do
        begin
            LookupDef.kind:=  TLookupKind.lkDataValues;    //查找类型
            LookupDef.ValidateKind   := TLookupValidateKind.vkMust;   //查找值范围
            LookupDef.SQL.Text       := 'select CPDM, CPMC from  FL_ZLCPB  where len(cpdm)>8 ';     // 查找数据集的SQL 语句
            LookupDef.KeyField       := 'cpmc' ;          //关键字段
            LookupDef.DisplayField   := 'CPMC';  //显示字段
            LookupDef.DropDownButton := True; //是否显示下拉
        end;
     end;

    end;

gaihl

在表定义中，这个字段的查找属性是如何定义的？

tdwoo

在表中没有定义查找属性

gaihl

连接
TSQLDataSet(DataSetBroker1.DataSet).FindBizField('KHID').LookupDef.DataBase.URL := 'Biz:\NRJBYWKJ\OAYWSJK.DATABASE';

http://bbs.justep.com/forum.php?mod=viewthread&tid=15925
3楼

tdwoo

哦。我刚才先在数据表内设置查找属性，然后取消。

这样就可以了。

但不知道以后还会不会出问题。

gaihl

设置了DataBase.URL  应就会好了。结了

tdwoo

好

rzport_lq0

做个记号。。