优化一下EHLIB的过滤功能
1、选择相应的过滤项目,然后直接就过滤,无需要再点一下回车
initialization
DBGridEhCenter.FilterEditCloseUpApplyFilter := True;
2、以前版本的过滤字串都是模糊过滤了,可是最近发现变成的匹配了。
会对 EhLib 5.0 Build 5.0.13 Russian version 版
修改 DBUtilsEh.pas 文件的第927行
function VarValueAsFilterStr(v: Variant): String;
begin
if VarType(v) = varDouble then
Result := FloatToStr(v)
else if VarType(v) = varDate then
if @DateValueToSQLStringProc <> nil then
Result := DateValueToSQLStringProc(Dataset, v)
else
Result := '''' + DateTimeToStr(v) + ''''
else
Result := '''%' + VarToStr(v) + '%''';
end;