請問各位一下~ 以下是我利用ComboBox來作取值的動作~但是每次跑到 If IsEmpty then Exit;時就會發生問題~ 我己經檢查過應該是沒有打錯~ 另外如只單純秀值時~它是可以取到第一筆資料~ 跑迴圈時就會發生問題~ 請問我是那裡設定有問題嗎~ 另外SQL文是正確且有多筆資料~ procedure TForm1.DBComboBox1DropDown(Sender: TObject); var bx:string; begin ADOQuery2.Close; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('SELECT A.MD001,A.MD002,B.MX001,B.MX003 '); ADOQuery2.SQL.Add('FROM CMSMD A LEFT OUTER JOIN CMSMX B '); ADOQuery2.SQL.Add('ON A.MD001 = B.MX002 '); ADOQuery2.SQL.Add('WHERE A.MD001=''001'' '); ADOQuery2.SQL.Add('ORDER BY B.MX001 '); ADOQuery2.Open; If IsEmpty then Exit; While not eof bx:=ADOQuery2.FieldByName('MX001').AsString; showmessage('22222222' bx); Next; end; thk^^

加入紅色部份:

procedure TForm1.DBComboBox1DropDown(Sender: TObject);
var 
  bx:string;
begin
       ADOQuery2.Close;
       ADOQuery2.SQL.Clear;
       ADOQuery2.SQL.Add('SELECT         A.MD001,A.MD002,B.MX001,B.MX003 ');
       ADOQuery2.SQL.Add('FROM         CMSMD A LEFT OUTER JOIN CMSMX B ');
       ADOQuery2.SQL.Add('ON         A.MD001 = B.MX002 ');
       ADOQuery2.SQL.Add('WHERE         A.MD001=''001'' ');
       ADOQuery2.SQL.Add('ORDER BY B.MX001 ');
       ADOQuery2.Open;           If ADOQuery2.IsEmpty then Exit; // 這行可以不要
       While not ADOQuery2.eof do
       begin
          bx := ADOQuery2.FieldByName('MX001').AsString;
          showmessage('22222222'   bx);
          ADOQuery2.Next;
       end;
end;

發表人 - hagar 於 2004/10/28 10:51:37

謝謝~ 不好意思~初接觸delphi所以許多屬性並不很清楚~ ComboBox己經有取得資料~ 但是為什麼點選下拉式時資料無法停留在ComboBox內呢~ 是不是那個屬性沒有設定到~ ^^

引言: 謝謝~ 不好意思~初接觸delphi所以許多屬性並不很清楚~ ComboBox己經有取得資料~ 但是為什麼點選下拉式時資料無法停留在ComboBox內呢~ 是不是那個屬性沒有設定到~ ^^

你是否有在程式碼中去控制當點選的時候 ComboBox1.ItemIndex 的屬性都固定為同一個值 如果有 把它拿掉就行了 天行健 君子當自強不息~~@.@

同意樓上。。。。

謝謝~ 但是我在Combox中只有設定上逑的程式碼~ 並不沒有設定任何的動作呢~

把程式碼全部貼上來看看 應該不只上面這些 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

不好意思～ 我大約把程式解釋一下～ 畫面上combobox中內容主要是要帶出sql文篩選的某個欄位～ 所以，我將程式處理都寫在DBComboBox1DropDown的事件中～ 當我點選下拉式時～我所要內容都有秀出來～ 問題是當選定某個值卻是無法秀在畫面上～ 奇怪的是我沒有任何地方有對ComboBox作設定～ 另外～可否問一下～ 為什麼程式在執行過程發生問題後～ 突然再按執行就無法作執行動作～ 這樣我程式就重寫嗎～或者我可利用此表單另存於另個專案呢～ 怎麼問題變多~ 謝謝~麻煩各位~

引言: 不好意思～ 我大約把程式解釋一下～ 畫面上combobox中內容主要是要帶出sql文篩選的某個欄位～ 所以，我將程式處理都寫在DBComboBox1DropDown的事件中～ 當我點選下拉式時～我所要內容都有秀出來～ 問題是當選定某個值卻是無法秀在畫面上～ 奇怪的是我沒有任何地方有對ComboBox作設定～ 另外～可否問一下～ 為什麼程式在執行過程發生問題後～ 突然再按執行就無法作執行動作～ 這樣我程式就重寫嗎～或者我可利用此表單另存於另個專案呢～ 怎麼問題變多~ 謝謝~麻煩各位~

剛剛試了一下 因為你用的是DbCombobox 資料感知元件 所以要設定DbCombobox上的Datasource及Datafield兩個屬性才有用 你就是因為沒設定 所以顯示不出來啦 去看看吧 天行健 君子當自強不息~~@.@

謝謝T.J.B~ 我了解你的意思~ 如此我可能必需建立DataSource元件~ 將SQL文包在ADOQuery內設定Datafield指定要秀的那個欄位值~ 這樣是ok沒錯~ 但是原本在DBComboBoxDropDown內所處理程式碼就失去意思~ 我試著將DBComboBox1.DataField := 'MX001';寫在此事件中~ 似乎一樣沒有反應~ 不過謝謝你的幫忙~