各位高手。谁能帮小弟解决一个简单的问题~！感激不尽~！！！

Question

ComboBox1.Items.Clear;with Table1 do
begin
     First;
     while not Eof do
     begin
          ComboBox1.Items.Add(FieldByName('code').AsString));
          Next;
     end;
end;

Answer 1

改：
          ComboBox1.Items.Add(FieldByName('code').AsString);看不出来值100分，这段代码今天出现好几次了！

Answer 2

你调试过了吗?
我用query的时候写的代码和你的一样
可是不知道怎么回事老是通不过
郁闷阿

Answer 3

是几层的数据库？
如果是三层的就复杂一点
如果是两层的，
ComboBox1.Items.Add(FieldByName('code').AsString));
应该符合要求。

Answer 4

搞定了
我重新启动了一下delphi

Answer 5

比如你点击了一个按钮button1.onclickComboBox1.Items.Clear;with Table1 do
begin
     if active=false then open;
     First;
     repeat
       ComboBox1.Items.Add(FieldByName('code').AsString));
       Next;
     until eof;
     close;
end;