ADOTable post資料後, close又open之後的錯誤...>_< |
缺席
|
361002
一般會員 發表:7 回覆:18 積分:5 註冊:2003-04-10 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
361002
一般會員 發表:7 回覆:18 積分:5 註冊:2003-04-10 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
361002
一般會員 發表:7 回覆:18 積分:5 註冊:2003-04-10 發送簡訊給我 |
|
361002
一般會員 發表:7 回覆:18 積分:5 註冊:2003-04-10 發送簡訊給我 |
|
361002
一般會員 發表:7 回覆:18 積分:5 註冊:2003-04-10 發送簡訊給我 |
button1 in page1 : 用A Table查出來的資料來產生excel
if OpenDialog1.Execute then begin
try
MyExcel := CreateOleOBject('Excel.Application');
MyExcel.WorkBooks.open(OpenDialog1.FileName);
MyExcel.visible := true;
...
略(因為這一段mark掉並不影響錯誤的產生...我試過了>_<)
...
except
showmessage('產生Excel檔失敗!');
end;
end; button2 in page2 : 用來查詢下單狀況
//清除table內的資料
with dmMain.adoTable_QueryOrder do
begin
DisableControls;
Filtered:=False;
while RecordCount > 0 do
Delete;
EnableControls;
end; //依帳號將委託資料查出
len:=QueryList.Count; //確定要查詢的帳號
for i:=0 to len-1 do
begin
QueryOrder(Trim(QueryList.Strings[i])); //再此功能中, 會將查出來的資料 insert data into dmMain.adoTable_QueryOrder
end;
//依欄位做filter
with dmMain.adoTable_QueryOrder do
begin
DisableControls;
Filtered:=False;
...
略 (產生filter條件)
...
Filter:=filter 條件;
Filtered:=True;
SaveToFile(PROGRAMPATH 'XML\QueryOrder.xml',pfXML);
Close;
Open;
First;
EnableControls;
end;
|
361002
一般會員 發表:7 回覆:18 積分:5 註冊:2003-04-10 發送簡訊給我 |
對不起, 忘了補上, 錯誤會在執行
//依欄位做filter
with dmMain.adoTable_QueryOrder do
begin
DisableControls;
Filtered:=False;
...
略 (產生filter條件)
...
Filter:=filter 條件;
Filtered:=True;
SaveToFile(PROGRAMPATH+'XML\QueryOrder.xml',pfXML);
Close;
Open; <-------OleException error with message 系統找不到指定的路徑
First;
EnableControls;
end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |