DbUtilsEh.pas 做以下修改
procedure TDatasetFeaturesEh . FillSTFilterListDataValues(AGrid: TCustomDBGridEh; Column: TColumnEh; Items: TStrings); |
begin |
end
;
改成:
procedure
TDatasetFeaturesEh
.
FillSTFilterListDataValues(AGrid: TCustomDBGridEh; Column: TColumnEh; Items: TStrings);
begin |
if Assigned(AGrid . Center) then |
AGrid . Center . StandardFillSTFilterListDataValues(AGrid, Column, Items); |
end
;