for i:=0  to ADOQuery1.RecordCount - 1 do
begin
    ListBox2.Items.Add( ADOQuery1.FieldByName('FieldName').AsStrring);
end;
  

解决方案 »

  1.   

    AdoQuery1.First;
    for i:=0  to ADOQuery1.RecordCount - 1 do
    begin
        ListBox2.Items.Add( ADOQuery1.FieldByName('FieldName').AsStrring);
        AdoQuery1.Next;
    end;
      
      

  2.   

    listbox2.items.clear;
    while not ADOQuery1.eof do
    begin
      listbox2.items.add(ADOQuery2.fieldbyname('fieldname').asstring;
      next;
    end;
      

  3.   

    listbox2.items.clear;
    ADOQuery1.First;
    while not ADOQuery1.eof do
    begin
      listbox2.items.add(ADOQuery2.fieldbyname('fieldname').asstring;
      next;
    end; 
      

  4.   

    ListBox2.Items.Clear;
    AdoQuery1.First;
    While Not AdoQuery1.Eof do
    begin
      if AdoQuery1.FieldByName('FieldName').IsNull then
         ListBox2.Items.Add(AdoQuery1.FieldByName('FieldName').AsString;
       AdoQuery1.Next;
    end;
      

  5.   

    谢谢!可是我的DBListBox为什么不行呢?DBListBox的DataSource和DataField都设好了啊!
      

  6.   

    打开了,而且我还拿着DBGrid对照,DBGrid显示的很清楚
      

  7.   

    你用dblookuplistbox就可以了,你只要设下面的listsource 和keyfield就可以了!