您好!我想請問... dmView.cdsTemp 為一個tclientdataset... 但我在實作的時候,以如下程式來看,只能展一層, 只要一遇到dmView.cdsTemp.Free;這一行便會發生錯誤... 若把dmView.cdsTemp.Free; 給mark 起來,便可執行成功但只能展一層... 可否請您給個解答... 萬分感謝您 function AddChildNode(node: TTreeNode; id: string; stype: string): TTreeNode; var strSQL: String; begin Result := frmNode.TreeNodePage.Items.AddChild(node, stype); strSQL:='select * from node_list t WHERE parentid = ''' id ''' order by parentid,nodetype desc,nodetext'; tool_sqlToCDS(strSQL ,dmView.cdsTemp); While not dmView.cdsTemp.Eof do begin AddChildNode(Result, dmView.cdsTemp.FieldByName('nodeid').AsString, dmView.cdsTemp.FieldByName('nodetext').AsString); dmView.cdsTemp.Next; end; dmView.cdsTemp.Free; end; procedure tool_SQLtoCDS(SQL:string; cds:Tclientdataset); begin with dmView.cdsTemp do begin close; data:=dmView.midasview.AppServer.query(SQL); open; first; cds.Data:=data; end; end; PS.已參考過所有相關於Treeview於Delphi中的文章

引言:

function AddChildNode(node: TTreeNode; id: string; stype: string): TTreeNode;
var
strSQL: String;
begin
Result := frmNode.TreeNodePage.Items.AddChild(node, stype);
strSQL:='select * from node_list t WHERE parentid = ''' id ''' order by parentid,nodetype desc,nodetext';
tool_sqlToCDS(strSQL ,dmView.cdsTemp);    While not dmView.cdsTemp.Eof do
begin
AddChildNode(Result, dmView.cdsTemp.FieldByName('nodeid').AsString, dmView.cdsTemp.FieldByName('nodetext').AsString);
dmView.cdsTemp.Next;
end;
dmView.cdsTemp.Free;改为
dmView.cdsTemp.close; //试试,供参考
end;    procedure tool_SQLtoCDS(SQL:string; cds:Tclientdataset);
begin
with dmView.cdsTemp do
begin
close;
data:=dmView.midasview.AppServer.query(SQL);
open;
first;
cds.Data:=data;
end;
end;

============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

經大大您建議後,測試發現 會有一個錯誤訊息 cdsTemp : cannot perform this operation on a closed dataset    

引言:

引言:

function AddChildNode(node: TTreeNode; id: string; stype: string): TTreeNode;
var
strSQL: String;
begin
Result := frmNode.TreeNodePage.Items.AddChild(node, stype);
strSQL:='select * from node_list t WHERE parentid = ''' id ''' order by parentid,nodetype desc,nodetext';
tool_sqlToCDS(strSQL ,dmView.cdsTemp);    While not dmView.cdsTemp.Eof do
begin
AddChildNode(Result, dmView.cdsTemp.FieldByName('nodeid').AsString, dmView.cdsTemp.FieldByName('nodetext').AsString);
dmView.cdsTemp.Next;
end;
dmView.cdsTemp.Free;改为
dmView.cdsTemp.close; //试试,供参考
end;    procedure tool_SQLtoCDS(SQL:string; cds:Tclientdataset);
begin
with dmView.cdsTemp do
begin
close;
data:=dmView.midasview.AppServer.query(SQL);
open;
first;
cds.Data:=data;
end;
end;

============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

function AddChildNode(node: TTreeNode; id: string; stype: string): TTreeNode;
var
  strSQL: String;
begin
  Result := frmNode.TreeNodePage.Items.AddChild(node, stype);
  strSQL:='select * from node_list t WHERE parentid = ''' id ''' order by parentid,nodetype desc,nodetext';
  tool_sqlToCDS(strSQL ,dmView.cdsTemp);
  dmView.cdsTemp.open; //再加上此句试试，供参考
  While not dmView.cdsTemp.Eof do
     begin
       AddChildNode(Result, dmView.cdsTemp.FieldByName('nodeid').AsString, dmView.cdsTemp.FieldByName('nodetext').AsString);
       dmView.cdsTemp.Next;
     end;
  dmView.cdsTemp.Free;改为
  dmView.cdsTemp.close; //试试,供参考
end;    procedure tool_SQLtoCDS(SQL:string; cds:Tclientdataset);
begin
  with dmView.cdsTemp do
    begin
      close;
      data:=dmView.midasview.AppServer.query(SQL);
      open;
      first;
      cds.Data:=data;
   end;
end;

============================ 为什么经过多年以后，得失的过程如此冷漠 ============================ 發表人 - deity 於 2005/08/22 12:50:07

重覆呼叫 AddChildNode，只有一個 clientdataset (dmView.cdsTemp) 這樣不是只會展一層的tree嗎 Top Level不會 Go Next...???

經deity兄的建議,修改後,還是會出現相同的錯誤訊息...