delphi dbgridth combobox字段 picklist列表无法显示,该怎么解决

delphi dbgridth combobox字段 picklist列表无法显示
这样的代码应该没错吧。

 with DataModule2.SaleItemQuery do

  begin

    Open;

    while not Eof do

    begin

      DBGridEh1.Columns[0].ButtonStyle:=cbsDropDown;

      DBGridEh1.Columns[0].PickList.Add(FieldByName('名称').AsString);

      Next;

    end;

    ShowMessage(DBGridEh1.Columns[0].PickList.Text);

 

可是combobox下拉框显示为空值。。。showmessage()可以把picklist的值全打印出来。
 

用了dbgrid也是同样的效果。求解答~~


------解决方案--------------------
那看看你第0列和FieldByName('名称').AsString的值类型是否一致，还有，要不就重新生成一下列看看。