for i:= 0 to YouTable.RecordCount-1 do
  begin
  DbComboBox.Items[i]:=YouTable.fieldByName('FieldName').AsString;
  if not YouTable.Eof then 
     YouTable.Next;
  end;

解决方案 »

  1.   

    连到表的数据集设为:Table1;TDBComboBox名设为:MyListBox;
    如下:
     Table1.First;//让数据集指向开始
      MyListBox.Items.Clear;//清空MyListBox内容
      while Not Table1.Eof do//加入字段
      begin
        MyListBox.Items.Add(Table1.FieldByName('字段名').AsString);
        Table1.Next;
      end;
      

  2.   

    Clientdataset.clse;
    if clientdataset.recordcount>0 then
      for i=0 to clientdataset.recordcount-1 do
      mylistbox.items.add(Clientdataset.FieldByNam('fieldname').asstring
    Clientdataset.open;