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

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

但是我对如何使用TcxGrid做到这一点感到困惑。虽然我可以将TcxGridDBBandedColumn.OnGetFilterDisplayText用作TdxDBTreeListColumn.OnFilterStringFormat的模拟，但我仍坚持如何实现TdxDBTreeListList.OnFilterStringUnformat提供的功能，以确保可以将用户指定的显示值转换为存储在其中的值基础数据集。

TcxGrid如何实现此功能？

最佳答案

我不确定我是否100％理解您的问题。我不确定你的意思


我被困在如何实现TdxDBTreeListColumn.OnFilterStringUnformat提供的功能上，以确保可以将用户指定的显示值转换为存储在基础数据集中的值。


首先，我举了一个小例子：

添加了一个带有日期字段的新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;

然后，我为Column提供了一个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;

结果如下：



到目前为止，我们已经按照期望的方式显示了数据，并且可以从标题进行过滤，但是如果从选择自定义过滤中选择ig，则会出现错误。

为了完成这项工作，您需要创建一个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