我想請教一下，有關於ADOQuery篩選後的值 我該如何利用While Not ADOQuery1.Eof do語法 與配合for迴圈寫到Stringgrid上 不好意思，因為我要練習com傳回值所以無法使用DataSource與DBgrid 以下是我的程式碼:(我不知怎麼判斷資料庫最後一筆資料) procedure TForm1.Button1Click(Sender: TObject); var cc:array [0..5,0..12]of string; var i,j:integer; begin if Trim(Edit1.Text) = '' then begin ShowMessage('請先輸入條件值'); Edit1.SetFocus; end else begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select 基金代號,購買日期,價格,數量,交易動作 From 交易資料表 Where '); ADOQuery1.SQL.Add('客戶編號 = ''' Edit1.Text ''''); ADOQuery1.Open; if ADOQuery1.RecordCount=0 then ShowMessage('無符合條件的內容請重新輸入') else begin cc[0,0]:=ADOQuery1.Fields[0].AsString; stringgrid1.Cells[0,0]:=cc[0,0]; cc[1,0]:=ADOQuery1.Fields[1].AsString; stringgrid1.Cells[1,0]:=cc[1,0]; cc[2,0]:=ADOQuery1.Fields[2].AsString; stringgrid1.Cells[2,0]:=cc[2,0]; cc[3,0]:=ADOQuery1.Fields[3].AsString; stringgrid1.Cells[3,0]:=cc[3,0]; cc[4,0]:=ADOQuery1.Fields[4].AsString; stringgrid1.Cells[4,0]:=cc[4,0];

這篇應該可以解決您的問題，請參考。 http://delphi.ktop.com.tw/topic.php?topic_id=81478