Operation not applicable錯誤訊息... |
尚未結案
|
kensoong
初階會員 發表:31 回覆:70 積分:45 註冊:2003-05-28 發送簡訊給我 |
請教各位前輩有無遇到此情況... Delphi 7 (ADO SQL Server 2000) (BDE Paradox)
執行到fmJobDetail := TfmJobDetail.Create(Application)發生的... sample codes如下:
procedure TfmJobList.btnDetailClick(Sender: TObject);
begin
if not DmOP.tbIMPG.IsEmpty then
fmJobDetail := TfmJobDetail.Create(Application)
else
showmessage('No job for viewing Detail.');
end; 謝謝!
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
|
kensoong
初階會員 發表:31 回覆:70 積分:45 註冊:2003-05-28 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
測試環境及程式碼如下
Delphi 7 Win2000..
Form1 Table1連接DBDEMOS,Table Nameanimals.dbf
Form2 沒有任何元件..
Form1 use Form2..
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Table1: TTable; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if not Table1.IsEmpty then Form2 := TForm2.Create(Application) else showmessage('No job for viewing Detail.'); end; end.完全沒有你講的錯誤訊息..TRY TRY SEE.. |
kensoong
初階會員 發表:31 回覆:70 積分:45 註冊:2003-05-28 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
|
kensoong
初階會員 發表:31 回覆:70 積分:45 註冊:2003-05-28 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
引言: 1.TfmJobDetail的OnCreate是否有程式碼 ANS:是有,不過,試著拿掉,也是有同樣的問題... 比較重要的codes snippet: if (DmOP.tbIMPG.FieldByName('CARRY').AsString <> 'Y') then DmOP.tbIMPG.Edit ... ... 2.TfmJobDetail裡面的DataSet是否在Design Time Active就已經設為True了 ANS:是的... 謝謝大大們的幫忙...Hi kensoong : 若OnCreate拿掉也是一樣, 那邊應該沒問題 小弟猜想應該是DataSet的事件中有問題, 所以麻煩請先檢查DataSet的事件 如AfterOpen AfterScroll等等 我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |