unit Client_Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBClient, MConnect, SConnect; type TForm1 = class(TForm) SocketConnection1: TSocketConnection; ClientDataSet1: TClientDataSet; DataSource1: TDataSource; DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; myThread = class(TThread) //一个线程 private { Private declarations } CDataSet:TClientDataset; protected procedure Execute; override; procedure changActive; //处理 public constructor create(DataS:TClientDataset); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ClientDataSet1.Active:=false; ClientDataSet1.Active:=true; ClientDataSet1.Close; ClientDataSet1.Open; //这里操作都没问题。 end; { myThread } procedure myThread.changActive; begin CDataSet.Active:=True; CDataSet.Open; //这也没问题 CDataSet.Active:=false; CDataSet.Close; //就这两句会出错 end; constructor myThread.create(DataS: TClientDataset); begin inherited create(false); CDataSet:=DataS; FreeOnTerminate:=True; end; procedure myThread.Execute; begin inherited; ChangActive; end; procedure TForm1.Button2Click(Sender: TObject); begin myThread.create(ClientDataSet1); end; end.

錯誤訊息是甚麼?

改成這樣試看看 procedure myThread.changActive; begin CDataSet.Active:=True; CDataSet.Open; 问题 CDataSet.Close; CDataSet.Active:=false; end; TRY TRY SEE

CDataSet.Close 根本就等於 CDataSet.Active:=false 不信到 TDataSet 的 Close Procedure 看看 : procedure TDataSet.Close; begin Active := False; end; CDataSet.Close 比 CDataSet.Active:=false 慢一點點(極少)，因為要做多一重呼叫，其他完全一樣。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.