请问怎么把数据显示在一个ComboBox控件中

Question

ComboBox.Items.Clear;
ClientDataSet1.First;
while not ClientDataSet1.Eof do
begin
  ComboBox.Item.Add(str);
  ClientDataSet1.Next;
end;

Answer 1

begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='select * from Department_Info';
ClientDataSet1.Open;
while Not ClientDataSet1.Eof do
begin  ComboBox.Items.Add(ClientDataSet1.FieldByName'Department_Name').Asstring);
  ClientDataSet1.Next;
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

ClientDataSet1.Close;
ClientDataSet1.CommandText:='select * from Department_Info';
ClientDataSet1.Open;
ComboBox1.Clear;
ClientDataSet1.First;
While not ClientDataSet1.Eof do
begin
  ComboBox.Items.Add(ClientDataSet1.FieldByName('Department_Name').Asstring);
   ClientDataSet1.Next;
end;

Answer 3

begin
 with ClientDataSet1 do
 begin  
  Close;
  CommandText:='select * from Department_Info';
  Open;
  While not eof do
   begin 
    Combobox1.Items.Add(FieldByName('Department_Name').Asstring);
    Next;
   end;
 end;

Answer 4

for循环里边少了一个begin  end;其它的倒没什么，应该可以用。

Answer 5

  query1.active:=false;
  query1.sql:='select * from Department_Info';
  query1.active:=true;
  While not eof do
  begin
    Combobox1.Items.Add(query1.FieldByName('Department_Name').Asstring);    Combobox1.Values.Add(query1.FieldByName('Department_Code').Asstring);
    Next;
   end;

Answer 6

query1.active:=false;
  query1.sql:='select * from Department_Info';
  query1.active:=true;
  While not query1.eof do
  begin
    Combobox1.Items.Add(query1.FieldByName('Department_Name').Asstring);    Combobox1.Values.Add(query1.FieldByName('Department_Code').Asstring);
    Next;
   end;

Answer 7

var 
  i:integer;
  str:string;
begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='select * from Department_Info';
ClientDataSet1.Open;
str:=ClientDataSet1.FieldByName'Department_Name').Asstring //错，这样每次都加的同一个STR！应该放到for循环中去！
for i:=0 to ClientDataSet1.RecordCount-1 do
   ComboBox.Item.Add(str);    //错，for 循环应该加begin end指定范围
   ClientDataSet1.Next;                   
end;

Answer 8

来晚了！同意—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 9

for i:=0 to query.RecordCount-1 do
begin
   ComboBox.Item.Add(query[i]);    //错，for 循环应该加begin end指定范围
   query.Next;