Delphi DBGrid PickList通过sql查询语句中ltrim不显示下拉列表的问题

最新推荐文章于 2021-01-15 19:44:21 发布

战石电子

最新推荐文章于 2021-01-15 19:44:21 发布

阅读量689

点赞数

分类专栏： Delphi 文章标签： Delphi DBGrid PickList ltrim 不显示下拉列表

泰山老父神枕传承人战小东

本文链接：https://blog.csdn.net/xyzhan/article/details/89784635

版权

Delphi 专栏收录该内容

226 篇文章 115 订阅

订阅专栏

注意查询语句的字段中不能有ltrim(字段名) as (字段名) 否则该字段在DBGrid中不会显示下拉PickList列表

procedure TForm1.FormShow(Sender: TObject);
begin
   with dm.ADOQuery1 do
   begin
     dm.ADOQuery1.Close;
     dm.ADOQuery1.SQL.Clear;
     dm.ADOQuery1.SQL.Add('select * from xue');
     dm.ADOQuery1.Open;
   end;
   while not (dm.ADOQuery1.Eof) do
   begin
    dbgrid1.Columns[index].PickList.AddObject(dm.ADOQuery1.Fields[0].AsString);
    next;
   end;
end;