各位前輩 我用ComboBox連接一個Users資料檔案中的User欄位，要怎樣才能將 該欄位的全部紀錄都添加到下拉中去 發表人 - tianwei 於 2005/10/13 20:14:05 發表人 - tianwei 於 2005/10/13 20:14:55

你要在ComboBox屬性欄裡的items裡增加， 或是用ComboBox1->Items->Add()的方式增加 ==================================== 懂的不多，卻想學的更多，搞得不自覺的將問題複雜化@@

小弟順便插個花，如果是從Users資料檔案中提取資料，可以嘗試DBComBox來解決，這樣可能會更好一些。 加入資料的方法為： DBComBox.Item.Add() ________________________________________ <>眾裏尋她千百渡 驀然回首 那人卻在燈火闌珊處

你可以按照上面两位的方式做，我在这儿总结如下：

var
  Adoquery: TADOQuery;
begin
  Adoquery := TADOQuery.Create(self);
  try
    Adoquery.Connection := ADOConnection1;
    Adoquery.Close;
    Adoquery.SQL.Text := 'select username from userinfo order by username';
    Adoquery.Open;
    ComboBox1.Clear;
    ComboBox1.Style := csDropDownList;
    while not Adoquery.Eof do
    begin
      ComboBox1.Items.Add(Trim(Adoquery.fieldbyname('username').AsString));
      Adoquery.Next;
    end;
    if Adoquery.RecordCount > 0 then ComboBox1.ItemIndex := 0;
  finally
    Adoquery.Free;
  end;
end;

风花雪月 e梦情缘 网络代号:wnhoo or sos_admin 网名:e梦缘 Mail:wnhoo@163.com

sos_admin,您好 感謝您幫我解決這個問題，昨天的時候，我自己也編寫了一段代碼， 我總覺得我存在一定的風險 我的程式是這樣的 var i : integer begin for i = 0 to ADOQuery.RecordCount-1 do begin ComboBox.Items.Add(ADOQuery.FieldByName['User']); ADOQuery.next; end; end; 如果：ADOQuery和ComboBox不在同一個表單裏面，運行的時候 for i = 0 to UsersFrm.ADOQuery.RecordCount-1 do 這句話就會產生錯誤。 請指教

您好﹗    如果UsersFrm為Auto-create Form的話﹐在ComboBox所在的Form中Uses UsersFrm這個Form就可以了﹐當然需要注意的是UsersFrm中的ADOQuery需要Open﹐那樣在迴圈中ComboBox才可以從ADOQuery中抓取到資料﹒    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

如果：ADOQuery和ComboBox不在同一個表單裏面，運行的時候 for i = 0 to UsersFrm.ADOQuery.RecordCount-1 do 這句話就會產生錯誤。 ================================================ 是什么错误信息？    可能发生情况，我想你也是如同cashxin2002所说Adoquery没有Open 或者Adoquery 所在form ,在combobox所在form子后create,而造成访问非法。    至于上面给你方法，你可以用在很多类似情况，没有风险 我都用过