起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 550|回复: 8

【结贴】自定义查找属性 ,报错!**

[复制链接]
发表于 2008-7-16 16:18:13 | 显示全部楼层 |阅读模式
我原来成功了一次,这次一样的写法,为何报错?

11.jpg

35.08 KB, 下载次数: 138

回复

使用道具 举报

 楼主| 发表于 2008-7-16 16:19:44 | 显示全部楼层
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;
回复 支持 反对

使用道具 举报

发表于 2008-7-16 16:30:07 | 显示全部楼层
在表定义中,这个字段的查找属性是如何定义的?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-16 16:36:20 | 显示全部楼层
在表中没有定义查找属性
回复 支持 反对

使用道具 举报

发表于 2008-7-16 16:46:52 | 显示全部楼层
连接
TSQLDataSet(DataSetBroker1.DataSet).FindBizField('KHID').LookupDef.DataBase.URL := 'Biz:\NRJBYWKJ\OAYWSJK.DATABASE';

http://bbs.justep.com/forum.php?mod=viewthread&tid=15925
3楼
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-16 16:53:24 | 显示全部楼层
哦。我刚才先在数据表内设置查找属性,然后取消。

这样就可以了。

但不知道以后还会不会出问题。
回复 支持 反对

使用道具 举报

发表于 2008-7-16 16:55:37 | 显示全部楼层
设置了DataBase.URL  应就会好了。结了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-16 17:05:01 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2011-11-23 14:31:52 | 显示全部楼层
做个记号。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-3-29 18:35 , Processed in 0.045570 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表