各位大大午安 這個問題不知道這樣問對不對，我的意思如下：

procedure TForm1.ComboBox1Change(Sender: TObject);
var selectcode:string;
begin
  selectcode := ComboBox1.Text;
  with AdoQuery1 do
    begin
    AdoQuery1.Active := False;
    AdoQuery1.SQL.Clear;
    AdoQuery1.SQL.Add('select * from bankcontrol');
    AdoQuery1.Sql.Add('where currencycode = ''' selectcode '''');
    AdoQuery1.SQL.Add('Order by buyingdate');
    AdoQuery1.Active := True;
    end;
  Label2.Caption := '正在檢視'   selectcode   '匯率中，目前餘額為：';
end;

我由AdoQuery下SQL找出符合的資料列，想從這些資料列中去跑判斷迴圈，找出符合條件的資料列來計算我要的數據，我想請問一開始用AdoQuery元件是正確的方法嗎？如果是，接下來應該怎麼寫指令計算餘額？如果不是，請大大們告知該用何元件來解決，謝謝。

如果下 SQL 指令就可以得到答案，就不用再使用迴圈來計算了。

scotthsiao兄 我知道您的意思，但是有些資料需求有時無法完全用SQL指令解決，RECORDSET集合的相互關係計算也是很有需求的，在DELPHI中，我不知該用什麼指令來處理，麻煩指點一下，感謝。

chateau_frank 您好： 我也不太了解意思，但先貼我出我認為你要問的問題好了 < class="code"> var i : Integer; selectcode:string; begin selectcode := ComboBox1.Text; i := 0; with ADOQuery1 do begin Active := False; SQL.Clear; SQL.Add('select * from bankcontrol'); Sql.Add('where currencycode = ''' selectcode ''''); Open; if RecordCount <> -1 then begin while not Eof do begin i := i FieldByName('餘額').AsInteger; Next; end; end; end; Label2.Caption := '正在檢視' selectcode '匯率中，目前餘額為：' IntToStr(i); 取之於ktop 用之於ktop

可以試試以下方式 ，逐筆計算    

ADOQuery1.First;    While not ADOQuery1.Eof do
begin
  i := ADOQuery1.FieldByName('fieldname').AsInter ....; 
  j := .......
  ............      ADOQuery1.Next;
 end;     

chateau_frank 您好： 我也不太了解意思，但還是先貼出來看看 

var
  i : Integer;
  selectcode:string;
begin
  selectcode := ComboBox1.Text;
  i := 0;
  with ADOQuery1 do
  begin
    Active := False;
    SQL.Clear;
    SQL.Add('select * from bankcontrol');
    Sql.Add('where currencycode = ''' selectcode '''');
    SQL.Add('Order by buyingdate');
    Active := True;
    if RecordCount <> -1 then
    begin
      while not Eof do
      begin
        i := i   FieldByName('餘額欄位名稱').AsInteger;
        Next;
      end;
    end;
  end;
  Label2.Caption := '正在檢視'   selectcode   '匯率中，目前餘額為： '   IntToStr(i);

取之於ktop 用之於ktop

T.J.K.兄與SCOTT兄 感謝兩位熱心幫忙，沒錯，我需要的就是這種方式，雖然兩位的方法不太相同，但跑出來的結果都是我想要的，再次謝謝兩位，未來還請兩位多指導。