Begin Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID IF @@Error <> 0 Begin Set @Err = 10 Goto theEnd End End
Set @nColumn_Order = @nColumn_Order + 1
--更新三部分 1 本树更改之前的后面(或前面)记录的顺序 1 节点本身 3 所有子节点 --分为向上移或象下移 --Print '更新本栏目之前位置后面的所有栏目[或者本栏目之后位置] [不包括本栏目下的子栏目]的:Column_Order' IF @nColumn_Order < @oColumn_Order Begin Update Tb_Column Set Column_Order = Column_Order+@theCount Where Column_Order<@oColumn_Order And Column_Order >=@nColumn_Order And (Column_Path Not like ''+@oColumn_Path+'%') And Column_ID<>@Column_ID IF @@Error <> 0 Begin Set @Err = 12 Goto theEnd End End Else Begin Update Tb_Column Set Column_Order = Column_Order-@theCount Where Column_Order >@oColumn_Order And Column_Order<@nColumn_Order And (Column_Path Not like ''+@oColumn_Path+'%') And Column_ID<>@Column_ID IF @@Error <> 0 Begin Set @Err = 13 Goto theEnd End End
--Print '更新本栏目的:Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro' Print 'Order : '+Ltrim(Str(@nColumn_Order)) IF @nColumn_Order > @oColumn_Order Set @nColumn_Order = @nColumn_Order - @theCount Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth,Column_Order = @nColumn_Order, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID IF @@Error <> 0 Begin