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

lili7912 · 发表于 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;

atiger · 发表于 2008-3-31 17:07:24

你在数据集的字段编辑器上重载了ghdw 这个字段吗？
http://bbs.justep.com/forum.php?mod=viewthread&tid=508

jiahaiminghr · 发表于 2008-3-31 17:07:47

试试重新打开当前数据集

lili7912 · 发表于 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事件里
再打该数据集，也不行。

lixy · 发表于 2008-4-1 09:02:37

TABLE_CJXX.QYJC 楼主的sql是不是少了1个字段？？一般是要一个关键字段和一个显示字段。
我重载的数据字段，用您的代码是可以修改查找属性的。

lili7912 · 发表于 2008-4-1 09:47:47

关键字段与显示字段一样

lixy · 发表于 2008-4-1 09:50:49

没有修改前的查找属性的条件是什么？

lili7912 · 发表于 2008-4-1 10:16:12

修改前的查找属性条件
SELECT TABLE_CJXX.QYJC
FROM TABLE_CJXX
WHERE TABLE_CJXX.BMBM like &[Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\DeptID.Param]||'%'

lixy · 发表于 2008-4-1 10:25:28

楼主什么版本的？

lili7912 · 发表于 2008-4-1 10:32:51

版本是2827

		自动登录	找回密码
密码			立即注册