|

楼主 |
发表于 2009-9-21 17:54:40
|
显示全部楼层
找到原因了
因为在分页后面用了个公共函数
procedure TYJHS.QCSXTJ(ds:TSQLDataSet; dg:TDataGrid; AContext:TContext; strFilter : string); //清除筛选条件 三个参数: 数据集,dataGrid,当前环境
var
lParam : Business.Model.TBizParam;
begin
ds.SQLFilter := strFilter;
ds.SQLFiltered := true;
lParam := SystemUtils.TContextUtils.GetParam(AContext, 'Biz:\ZJGLXT\YJHSCSZ.ParamGroup','GLZFC');
lparam.Value := '';
end;
调用了这个才出现错误
:confused:
郁闷 |
|