delphi dbgridth combobox字段 picklist列表无法显示

Question

这样的代码应该没错吧。 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也是同样的效果。求解答~~

Answer 1

 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);
删除这行即可，好久没回技术帖了

Answer 2

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