【搞定】2800"业务功能树配置"的严重问题.**

lxs202

其它的不说.就是这个字段"FREFFULLFILENAME"的问题
我用手动向freffullfilename表里添加的功能,就能显示出来.反而用平台里面的"业务功能树配置"功能添加的功能不能显示出来.为什么?
经反复核实,是因为通过平台添加的在FREFFULLFILENAME字段的值后面多了一个空格.删除空格就能显示出来. 就这个原因.

lxs202

确认没有是不是有这个问题?

alang

请看 协同系统\配置\功能树配置信息 中的代码
FREFFULLFILENAME字段存的是一个TStringList的Text属性，其中包括了#13#10回车换行符，所以不要尝试手动对这个字段修改，否则回出现错误的
procedure TFUNCTREEINFO.RefFilesToFuncTreeDataSet;
var
  lFiles: TStringList;
  lBM: TBookMarkStr;
begin
  FRefFilesSaving := True;
  lFiles := TStringList.Create;
  lBM := DataSetRefFiles.Bookmark;
  try
    DataSetRefFiles.First;
    while not DataSetRefFiles.Eof do
    begin
      lFiles.Add(DataSetRefFiles.FieldByName('FFileName').AsString);
      DataSetRefFiles.Next;
    end;
    DataSetFuncTreeDataSet.Edit;
    DataSetFuncTreeDataSet.FieldByName('FREFFULLFILENAME').AsString := lFiles.Text;
    if (DataSetFuncTreeDataSet.FieldByName('FFILENAME').AsString = '') and
      (lFiles.Count > 0) then
      DataSetFuncTreeDataSet.FieldByName('FFILENAME').AsString := TSystemUtils.GetDisplayNameByFileName(lFiles[0]);
  finally
    DataSetRefFiles.Bookmark := lBM;
    lFiles.Free;
    FRefFilesSaving := False;
  end;
end;

lxs202

11楼的看了吗?
那我这里该怎么做? 请看图:

lxs202

顶

lxs202

顶

lxs202

顶

lxs202

顶

lxs202

老大们还是关心一下用户呀!

alang

我这里多次测试，都没有出现楼主所描述的情况
请楼主自己调试运行一下，在 协同系统\配置\功能树配置信息 的
function TFUNCTREEINFO.SelectFile(var AFileName: string): Boolean;
var
  lBizBrowseDialog : TBizBrowseDialog;
//  lBizNode : TBizNode;
begin
  lBizBrowseDialog := TBizBrowseDialog.Create(nil);
  try
    lBizBrowseDialog.Title := '选择需要设置的功能';
    lBizBrowseDialog.PromptText := '选择要设置功能';
    lBizBrowseDialog.ShowOptions := [TBizObjectKind.boBizServer, TBizObjectKind.boSpace, TBizObjectKind.boBizFuncSpace, TBizObjectKind.boFunc, TBizObjectKind.boFolder];
    lBizBrowseDialog.SmartOptions := [TBizObjectKind.boSpace, TBizObjectKind.boFolder, TBizObjectKind.boBizFuncSpace];
    lBizBrowseDialog.MustSelectedNode :=  [TBizObjectKind.boSpace, TBizObjectKind.boFolder, TBizObjectKind.boBizFuncSpace, TBizObjectKind.boFunc];
    try
      lBizBrowseDialog.InitialDir := AFileName;
    except
      // 忽略
    end;
    Result := lBizBrowseDialog.Execute;
    if Result then
      AFileName := lBizBrowseDialog.FileName;
  finally
    lBizBrowseDialog.Free;
  end;
end;
在       AFileName := lBizBrowseDialog.FileName;
上设置断点，看看这个AFileName时候有空格