|
发表于 2007-9-13 18:10:33
|
显示全部楼层
请用业务参数来过滤查找数据集:
1、定义查找数据集的sql语句
SELECT TPERSON.FID, TPERSON.FDISPLAYNAME
FROM TPERSON
WHERE TPERSON.FID like '%'+&[Biz:\LZ\YWCSZ.ParamGroup\PersonID.Param]+'%'
2、代码设置参数值,刷新查找数据集
var
lContextCurrent: TContextCurrent;
lBizParam: TBizParam;
lBizUrl: TBizUrl;
begin
lBizUrl := TBizUrl.Create;
lContextCurrent := TContextCurrent.Create(context);
try
lBizUrl.URL := 'Biz:\LZ\YWCSZ.ParamGroup';
lBizParam := lContextCurrent.GetParam(lBizUrl, 'PersonID');
lbizparam.Value := Edit1.Text;
finally
lBizUrl.Free;
lContextCurrent.Free;
end;
TSqlDataSet(DataSetBroker1.DataSet).GetLookupData('XSY').Refresh;
end;
3、注意:
你的需求需要设置三个参数来实现,在设计sql时用like |
|