TcxGridDBBandedColumn 中的 TdxDBTreeListColumn.OnFilterStringUnformat 模拟在哪里？

Question

我们在应用程序中使用 DevExpress ExpressQuantumGrid v3 (TdxDBGrid) 和 ExpressQuantumGrid Suite v12 (TcxGrid)。对于 TdxDBGrid，我们使用 TdxDBTreeListColumn.OnFilterStringFormat 和 OnFilterStringUnformat 事件来允许我们使用与列关联的基础数据类型的值的字符串表示形式进行过滤。例如，我们可能将时间段以毫秒为单位存储，但以 HH:MM:SS 格式显示。

但我对如何使用 TcxGrid 执行此操作感到困惑。虽然我可以将 TcxGridDBBandedColumn.OnGetFilterDisplayText 用作 TdxDBTreeListColumn.OnFilterStringFormat 的模拟，但我仍坚持如何实现 TdxDBTreeListColumn.OnFilterStringUnformat 提供的功能，以确保我可以从用户访问存储在基础数据集中的值。

如何使用 TcxGrid 实现此功能？

Answer 1

我不确定我是否已 100% 理解您的问题。我不确定你所说的

是什么意思

I'm stuck with how to implement the functionality provided by TdxDBTreeListColumn.OnFilterStringUnformat, to ensure I can convert from the display value specified by the user to the value stored in the underlying dataset.

首先我做了一个小例子：

添加了一个带有日期字段的新 TdxMemtable，将其链接到 tcxGrid，并且我向其中添加了一些随机数据：

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  BeginOfYear: TDateTime;
begin
  Randomize;
  dxMemData1.Active := true;
  dxMemData1.DisableControls;
  BeginOfYear := EncodeDate(2015, 1, 1);

  for i := 0 to 500 do
    dxMemData1.AppendRecord([i, Random(Trunc(Date - BeginOfYear)) + BeginOfYear]);

  dxMemData1.EnableControls;
end;

然后我给列一个 OnGetFilterDisplayText 事件：

procedure TForm1.cxGrid1DBTableView1Field2GetFilterDisplayText(Sender: TcxCustomGridTableItem; const AValue: Variant; var ADisplayText: string);
begin
  if VarIsType(AValue, varDate) then
    ADisplayText := FormatDateTime(FormatSettings.LongDateFormat, AValue);
end;

它给了我想要的结果：

没有 OnGetFilterDisplayText 事件：

还有 OnGetFilterDisplayText 事件：

如您所见，我已经在不修改内部数据的情况下对“过滤器”框中的文本进行了格式化。

所以最后一件事是通过向列添加 OnGetDataText 以所需格式显示数据：

procedure TForm1.cxGrid1DBTableView1Field1GetDataText(Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: string);
var
  aDateTime: TDateTime;
begin
  if TryStrToDate(AText, aDateTime) then
    AText := FormatDateTime(FormatSettings.LongDateFormat, aDateTime);
end;

结果如下：

之后：

通过这种方式，您可以将数据以内部格式保存在数据集中，但以不同的方式显示给用户。

为了向您展示如何获取原始数据值和屏幕上的数据值，我向 mu 数据集添加了两个 tcxEdit 和一个 AfterScrollEcent：

procedure TMainForm.gridDBTableView1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
var
  Index: Integer;
begin
  if AFocusedRecord = nil then
    exit;

  Index := gridDBTableView1time_field.Index;
  cxTextEdit1.Text := AFocusedRecord.Values[Index];
  cxTextEdit2.Text := AFocusedRecord.DisplayTexts[Index];
end;

这是结果：

到目前为止，我们已经按照我们想要的方式显示了数据，并且可以从标题中进行过滤，但是如果您从选择自定义过滤中选择，您会收到错误消息。

为了完成这项工作，您需要创建一个 TcxFilterComboBoxHelper 后代？

type
  TmyFilterComboBoxHelper = class(TcxFilterComboBoxHelper)
  private
    class function TryLongDateFormatToDate(const S: string; out Value: TDateTime): Boolean;
    class function TryStringToMilliseconds(const S: string; out Value: Int64): Boolean;
  public
    class procedure GetFilterValue(AEdit: TcxCustomEdit; AEditProperties: TcxCustomEditProperties; var V: Variant; var S: TCaption); override;
  end;

完整的代码可以在这里找到： http://pastebin.com/A1NRNg2J

TcxGridDBBandedColumn 中的 TdxDBTreeListColumn.OnFilterStringUnformat 模拟在哪里？

Where is the TdxDBTreeListColumn.OnFilterStringUnformat analog in TcxGridDBBandedColumn?

delphi

devexpress

tcxgrid