如何通过代码移动组织树中组织单元的排列顺序

atiger

Business平台组织机构树中的组织单元一次只能向下或者向下移动一个位置，有时这样的移动方式不能满足调整幅度较大的移动。“业务模型\系统空间\系统功能\组织机构\组织结构设计基类\组织机构设计器窗体基类”中的actUpNodeExecute过程实现的是一次移动位置，我们可以参考这个过程解决以下代码实现这个需求。下面的程序为将组织单元向上移动的示例。

procedure TBaseOrgDsgnFormChild.tbMoveUpClick(Sender: TObject);
var
  iMoveStep: integer;
begin
iMoveStep := 1;  //移动个数
  //判断移动后是否超过树状结构的顶部
    if (OrgTreeView.Selected.Index - iMoveStep) < 0 then
    Dialogs.ShowMessage('已经到顶部，不能再向上移动！')
  else
  begin
    if IsBizTreeView then
      OrgTreeView.MoveUpNode(OrgTreeView.Selected, iMoveStep)
    else if IsBizChart then
      OrgChart.MoveUpNode(OrgChart.Selected, iMoveStep);
  end;
end;