//在字典里已设置了查找属性
//在代码里加了查找条件
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]||'%'
在数据集没有重载这个字段。
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]||'%'