起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 688|回复: 15

动态修改查找属性的条件不起作用**

[复制链接]
发表于 2008-3-31 17:01:11 | 显示全部楼层 |阅读模式
//在字典里已设置了查找属性
//在代码里加了查找条件
procedure TMainForm.spbRKDClick(Sender: TObject);
var
  lSQL:string;
begin
  lSql:=TSQLDataset(dsbRKDMX.Dataset).FindBizField('ghdw').LookupDef.SQL.Text;

//lsql的值为SELECT TABLE_CJXX.QYJC
  FROM TABLE_CJXX
  WHERE TABLE_CJXX.BMBM like &[Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\DeptID.Param]||'%'

  lSQL:=LSQL+' and TABLE_CJXX.fuhzt='''+'CL''';


  TSQLDataset(dsbRKDMX.Dataset).FindBizField('ghdw').LookupDef.SQL.Text:=lSQL;
  TSQLDataSet(dsbRKDMX.Dataset).LayoutChange;
  TSQLDataset(dsbRKDMX.DataSet).GetLookupData('ghdw').Refresh;
end;
回复

使用道具 举报

发表于 2008-3-31 17:07:24 | 显示全部楼层
你在数据集的字段编辑器上重载了ghdw 这个字段吗?
http://bbs.justep.com/forum.php?mod=viewthread&tid=508
回复 支持 反对

使用道具 举报

发表于 2008-3-31 17:07:47 | 显示全部楼层
试试重新打开当前数据集
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-1 08:47:19 | 显示全部楼层
在数据集没有重载这个字段。
procedure TMainForm.spbRKDClick(Sender: TObject);
var
  lSQL:string;
begin
  lSql:=TSQLDataset(dsbRKDMX.Dataset).FindBizField('ghdw').LookupDef.SQL.Text;

//lsql的值为SELECT TABLE_CJXX.QYJC
  FROM TABLE_CJXX
  WHERE TABLE_CJXX.BMBM like &[Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\DeptID.Param]||'%'

  lSQL:=LSQL+' and TABLE_CJXX.fuhzt='''+'CL''';


  TSQLDataset(dsbRKDMX.Dataset).FindBizField('ghdw').LookupDef.SQL.Text:=lSQL;
  TSQLDataSet(dsbRKDMX.Dataset).LayoutChange;
  TSQLDataset(dsbRKDMX.DataSet).GetLookupData('ghdw').Refresh;
  TSQLDataset(dsbRKDMX.DataSet).Close;
  TSQLDataset(dsbRKDMX.DataSet).Open;
end;
重新关闭,再找开这个数据集也不行。
将该条件设置放在窗体的ONCreate事件里
再打该数据集,也不行。
回复 支持 反对

使用道具 举报

发表于 2008-4-1 09:02:37 | 显示全部楼层
TABLE_CJXX.QYJC  楼主的sql是不是少了1个字段??  一般是要一个关键字段和一个显示字段。
我重载的数据字段,用您的代码是可以修改查找属性的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-1 09:47:47 | 显示全部楼层
关键字段与显示字段一样
回复 支持 反对

使用道具 举报

发表于 2008-4-1 09:50:49 | 显示全部楼层
没有修改前的查找属性的条件是什么?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-1 10:16:12 | 显示全部楼层
修改前的查找属性条件
SELECT TABLE_CJXX.QYJC
  FROM TABLE_CJXX
  WHERE TABLE_CJXX.BMBM like &[Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\DeptID.Param]||'%'
回复 支持 反对

使用道具 举报

发表于 2008-4-1 10:25:28 | 显示全部楼层
楼主什么版本的?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-1 10:32:51 | 显示全部楼层
版本是2827
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 21:47 , Processed in 0.036400 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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