怎么用dbgrid中的picklist建立下拉选择框？？求助啊！！

Question

yourList := TStrignList.Create();
yourList.Add(..);
DBGrid.Columns[4].PickList := yourList;

Answer 1

begin
  with DataModuleForm.jsgzQuery2 do
  begin
    DBGrid1.Columns[1].PickList.Clear;
    Close;
    with SQL do
    begin
      Clear;
      Add('select * from lswh');
    end;
    Open;
    First;
    while Not (DataModuleForm.jsgzQuery2.Eof) do
    begin
      DBGrid1.Columns[1].PickList.Add(FieldByName('xm').AsString);
      Next;
    end;
  end;
//设置你总应该会吧，嘻嘻

Answer 2

在query1或table打开后open;
for i:=0 to dbgrid1.Column.count-1 do
begin
if dbgrid1.Columns[i].fieldname:='我要加的字段' then
   begin
   while Not (Query2.Eof) do//Query2为事先查询的结果
    begin
      DBGrid1.Columns[i].PickList.Add(Query2.FieldByName('字段' ).AsString);
      Next;
    end;
   
   end;
end;