问题出在
如果 筛选出Column.Field.Value为 空值,不能转为 OleStr类型,要用VarToStrDef进行转换。
另外一种解决方法
if not varisnull(Column.Field.Value) then ComboBoxEx1.ItemIndex := ComboBoxEx1.Items.IndexOf(Column.Field.Value); // ComboBoxEx1.ItemIndex := ComboBoxEx1.Items.IndexOf(VarToStrDef(Column.Field.Value, ''));