在Delphi XE4和Devexpress VCL 13.1中向combobox添加项目

Question

我有以下代码：

var
cbMyCombo: TcxLookupComboBox;

我有一个数据集，其中包含以下查询：

SELECT ID, NAME from MYTABLE;

此查询正常。

现在我已经在DFM文件中对cbMyCombo进行了绑定，如下所示：

object cbMyCombo: TcxLookupComboBox
  Properties.KeyFieldNames = 'ID'
  Properties.ListColumns = <
    item
      FieldName = 'NAME'
    end>
end

它工作正常，组合框被绑定。我的问题是，默认情况下没有选择任何内容。我想最初的组合框应该包含“查看全部”选项。

我这样想：

cbMyCombo.Text := 'View All'

但是，这并没有设置任何东西，因为“查看全部”不是我已绑定到它的列表的一部分。我想手动将“查看全部”添加为FieldName，将 0 添加为KeyFieldName，默认情况下应选择此选项。我怎么能这样做？

Answer 1

您应该将'View all', 0行添加到数据集中，并在您的初始化中将组合框的EditValue设置为0.