//删除所有子结点的方法
Procedure TCT_WJJG.DelAllChildrenNode(FNodeID:string);
var
sqlStr: String;
begin
sqlStr:=' delete GY_SB_WJJG where id in('
+' select id from GY_SB_WJJG'
+' start with id ='''+FNodeID+''''
+' connect by prior id= fid'
+' )';
if (TZYJ_SJJCZHS.executeSqlWithReturn(sqlStr)) then
begin
DataSetBroker_WJJGS.DataSet.Refresh ;
end;
end;
删除子结点
最新推荐文章于 2024-12-09 15:54:53 发布