DBGrid1.Columns[0].PickList.Clear;
  Table1.First;
  while not Table1.Eof do begin
    DBGrid1.Columns[0].PickList.Add(Table1.FieldByName('<FieldName>').AsString);
    Table1.Next;
  end;

解决方案 »

  1.   

    to zswang(伴水):
      Table1.Next;把使得指针总是指向表的末尾。如何让指针随着DBGRID1自己变化呢?
    用for ... to ...do,i will try.
      
      

  2.   

    谢谢!如果TDBGRID1中显示的数据为一个QUERY(多表),使用dbgrid1.Columns.Items[i].PickList
    选择一个值,为什么会报错?报错信息为:'insufficient key column information updating or refreshing.'
      

  3.   

    直接输入?如果网格中显示的是单个表 的数据,当然没问题;
    但是,如果是join 来的多表的数据,就报错如上了。