问题出在

 如果 筛选出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, ''));