把tdocsystem表中的数据全部清空(前提是没有正式数据)
然后使用:
procedure EnsureRoot;
const
cGUID = '4B666B997C49446688B339B6D944AA5B';
begin
if not FileSys.FileSystem.FileExists(TRTLConsts.DocRoot) then //TRTLConsts在协同常量库
try
FileSys.FileSystem.CreateFile(TRTLConsts.DocRoot, cGUID, [], TFileKind.fkSpace, TRTLConsts.DocDisplayName);
except
on E: TObject do
raise Exception.CreateFmt('知识中心基础数据错误,初始化失败。'#13#10 + '错误原因:%s', [jsCommon.ExceptText(E)]);
else
raise;
end;
end;
重新创建以下根节点。应该是根节点的数据坏掉了。 |