各位大大 小弟在寫下列程式compile沒問題 可是執行時卻發生錯誤 QUERY2.CLOSE; QUERY2.SQL.CLEAR; QUERY2.SQL.Add('SELECT COMP_ID FROM OIL_MT WHERE substring (PCUR_NO,1,8)=20050801' 'AND DEBT_MEY>0 ORDER BY COMP_ID'); QUERY2.OPEN; QUERY2.First; WHILE NOT QUERY2.Eof DO BEGIN QUERY1.CLOSE; QUERY1.SQL.Clear QUERY1.SQL.Add('SELECT COMP_ID, ITEM_ID, SUM(OIL_QTY) AS 總數量, SUM (DEBT_MEY) AS 總金額' 'FROM OIL_MT WHERE substring(PCUR_NO,1,8)=20050801' 'AND COMP_ID=''' QUERY2.FIELDBYNAME'COMP_ID').ASSTRING '''' 'AND DEBT_MEY >0 AND ITEM_ID=''01'' GROUP BY COMP_ID,ITEM_ID ORDER BY COMP_ID,ITEM_ID'); QUERY1.OPEN; 我利用QUERY2查詢公司代號 並使用GROUP BY計算ITEM_ID數量 金額總和 我在資料庫上直接下QUERY1.這段指令,語法應該沒問題 可是執行時 卻在QUERY1.OPEN後產生問題 煩請指導

你好：

  按理编译都不会通过。看看下面红色部分，自行修正再试试看
     >>ID='' >0 AND ITEM_ID=''01'' GROUP BY COMP_ID,ITEM_ID ORDER BY COMP_ID,ITEM_ID');
       SHOWMESSAGE(QUERY1.SQL.TEXT);//show下SQL语句是否正确
       QUERY1.OPEN;
     END;

不行的话你可以将两个QUERY分开单独执行下，看有无错误，可加多一句SHOWMESSAGE(QUERY1.SQL.TEXT)；然后再并合写,大致这样吧。试试看 <> ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================