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的值类型是否一致，还有，要不就重新生成一下列看看。