我要寫一個程式去統計在某個區間中，各種規格所擁有的數量 情形如下： 我先從AA資料表中select出 ordno = (2,4,6,9,10) 在從ordno = (2,4,6,9,10)中統計A,B,C規格所擁有的數量 var a_r :array of string; I :integer; ordnos,m_ordno:string; SetLength(a_r,10); ord1Qu.Last; m_ordno := ord1QuORDNO.Value; strpt260Frm.ord1Qu.First; For I:= 0 To 9 do begin if not ord1Qu.Eof then begin if m_ordno = ord1QuORDNO.Value then a_r[I] := ord1QuORDNO.Value else a_r[I] := ord1QuORDNO.Value ','; ord1Qu.Next; end else break; end; ordnos := a_r[0] a_r[1] a_r[2] a_r[3] a_r[4] a_r[5] a_r[6]; with st1Qu do begin Close; SQL.Add('select st_kind,sum(ord_s) as ord_s,sum(ord_wei) as ord_wei'); SQL.Add('from AA); SQL.Add('where ordno in (:p_ordno)'); SQL.Add('group by st_kind); Parameters.ParamByName('p_ordno').Value := ordnos; Open; end; 以上是我的做法，不過ordnos的結果是'2,4,6,9,10' 導致st1Qu.recordcount=0 (實際上是st1Qu.recordcount=0) 請問我要如何修改ㄚ @@

Hi depblue,    請參考 http://delphi.ktop.com.tw/topic.php?topic_id=41823 並建議更改如下

...
  with st1Qu do
    begin
      Close;
      SQL.Add('select st_kind,sum(ord_s) as ord_s,sum(ord_wei) as ord_wei');
      SQL.Add('from AA);
      SQL.Add('where ordno in ('   ordnos   ')'); // 假設 ordno 為數字型態
      SQL.Add('group by st_kind);
      Open;
  end;
...

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman