根据过滤字符串检查 TDataSet 行

发布于 2024-07-22 05:54:20 字数 824 浏览 8 评论 0原文

我在内存 TDataSet 后代中使用 DevExpress TdxMemData 。虽然它具有 Filtered: Boolean 和 Filter: String 属性，但它似乎实际上并没有自动对它们执行任何操作，而是依赖于 OnFilterRecord 事件的 Accept 参数的结果。

所以我正在寻找一种方法（可能在 TdxMemData 或 DevExpress 代码套件中的其他地方）来解析过滤器文本并将其应用到数据集。

理想情况下，我想要一种方法来针对过滤器测试单个行，看看它是否匹配，而不将其从数据集中过滤出来（我想突出显示与过滤器匹配的行）。

过滤字符串示例：

((Name = 'Jim') and (Rep > 1000)) or (Rep > 5000)

因此存在嵌套的 and 和 or 。它实际上是由 DevExpress TcxDBFilterControl 构建的。

我真的希望我缺少一些简单的东西。

更新：我通过 DevExpress 打开了票证看看他们是否支持某种解决方案。我确实找到了他们的股票答案他们不支持过滤关于 TdxMemData。

原文

I am using a DevExpress TdxMemData in memory TDataSet descendant. While it has Filtered: Boolean and Filter: String properties, it doesn't appear to actually do anything with them automatically, instead relying on the result of the OnFilterRecord event's Accept parameter.

So what I am looking for is a way (maybe it is in TdxMemData or somewhere else in DevExpress's suite of code) to parse the filter text and apply it to the Dataset.

Ideally I would like a way to test an individual row against the filter to see if it matches without filtering it out of the dataset (I want to highlight rows that match the filter).

Example filter string:

((Name = 'Jim') and (Rep > 1000)) or (Rep > 5000)

So there is nested and's and or's. It is actually built by the DevExpress TcxDBFilterControl.

I am really hoping there is something simple I am missing.

Update: I opened a ticket with DevExpress to see if they support any kind of solution. I did find their stock answer that they don't support filtering on TdxMemData.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

风吹雨成花 2024-07-29 05:54:20

我知道这不是您寻找的答案，但 TdxMemData 数据集不支持过滤字符串。要使用过滤器，请编写您自己的 OnFilterRecord 事件或将 ProgrammedFilter 设置为 true 并使用已过滤的记录列表（在运行时）填充 FilterList。

一种可能性是编写您自己的解析器来将过滤器字符串与 OnFilterRecord 事件中的当前记录进行比较。

回复收藏 0 原文

以歌曲疗慰 2024-07-29 05:54:20

您可能需要考虑将 TdxMemData 替换为 TkbmMemTable。它是免费的，工作原理与 DX 组件类似，并且支持过滤字符串。与在 OnFilterRecord 中实现过滤器字符串解析器相比，移植所花费的时间可能要少得多！它可以毫无问题地与其他 DX 组件一起使用。

回复收藏 0 原文

眼睛会笑 2024-07-29 05:54:20

您要寻找的不是过滤数据，而是在满足条件时以不同方式显示数据的问题。如果您使用 TDBGrid 来显示数据，请查看 TDBGrid 上的 DrawColumnCell() 事件：

procedure TForm1.dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  DBG: TDBGrid;
begin
  DBG := TDBGrid(Sender);
  // Add any other conditions from your 'filter' here in the next line.
  if (YourData.FieldByName('WHATEVER').AsString = 'Jim') and
     (YourData.FieldByName('REP').AsInteger > 1000) then
    Column.Font.Color := clRed;
  DBG.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

由于您使用的是 TdxMemData，因此您可能也在使用 DevEx 网格。它必须有类似的方式来执行默认绘图以外的操作；您可以在那里使用类似的技术。（我已经有几年没有使用 DevEx 的东西了；当前的雇主不喜欢它们，因此不会支付这笔费用。:-( )

What you're looking for is not filtering the data, but a matter of displaying it differently if it meets a condition. If you're using a TDBGrid to display the data, look into the DrawColumnCell() event on the TDBGrid:

procedure TForm1.dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  DBG: TDBGrid;
begin
  DBG := TDBGrid(Sender);
  // Add any other conditions from your 'filter' here in the next line.
  if (YourData.FieldByName('WHATEVER').AsString = 'Jim') and
     (YourData.FieldByName('REP').AsInteger > 1000) then
    Column.Font.Color := clRed;
  DBG.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Since you're using TdxMemData, you're probably using the DevEx grid, too. It has to have a similar way to do something other than the default drawing; you can use a similar technique there. (I haven't used the DevEx stuff in a few years; current employer doesn't like them, and therefore won't spring for the expense. :-( )

回复收藏 0 原文

~没有更多了~