--重排編碼的存儲過程
CREATE PROC p_RTaxisCode
@TableName sysname,??? --重排編碼的表名
@FieldName sysname,??? --編碼字段名
@CodeRule varchar(100)? --以逗號分隔的編碼規則,每層編碼的長度,比如1,2,3,表示有三層編碼,第一層長度為1,第二層長度為2,第三層長度為3
AS
--參數檢查
IF ISNULL(OBJECTPROPERTY(OBJECT_ID(@TableName),N'IsUserTable'),0)=0
BEGIN
?RAISERROR(N'"%s"不存在,或者不是用戶表',1,16,@TableName)
?RETURN
END
IF NOT EXISTS(SELECT * FROM SYSCOLUMNS WHERE ID=OBJECT_ID(@TableName) AND name=@FieldName )
BEGIN
?RAISERROR(N'列名"%s"在用戶表"%s"中無效',1,16,@FieldName,@TableName)
?RETURN?
END
IF ISNULL(@CodeRule,'')=''
BEGIN
?RAISERROR(N'必須編碼規則字符串',1,16)
?RETURN?
END
IF PATINDEX(N'%[^0-9^,]%',@CodeRule)>0
BEGIN
?RAISERROR(N'編碼規則字符串"%s"中只能包含數字和逗號(,)',1,16,@CodeRule)
?RETURN?
END

--生成編碼重排處理語句
DECLARE @s nvarchar(4000),@len int,@lens int
SELECT
?@TableName=QUOTENAME(@TableName),
?@FieldName=QUOTENAME(@FieldName),
?@len=LEFT(@CodeRule,CHARINDEX(N',',@CodeRule+N',')-1),
?@lens=@len,
?@CodeRule=STUFF(@CodeRule,1,CHARINDEX(N',',@CodeRule+N','),N'')+N',',
?@s=N'RIGHT('+CAST(POWER(10,@len) as varchar)
??+N'+(SELECT COUNT(DISTINCT '+@FieldName
??+N') FROM '+@TableName
??+N' WHERE '+@FieldName+N'<=a.'+@FieldName
??+N' AND LEN( '+@FieldName+N')='+CAST(@len as varchar)
??+N'),'+CAST(@len as varchar)+N')'

WHILE LEN(@CodeRule)>1
BEGIN
?SELECT
??@len=LEFT(@CodeRule,CHARINDEX(N',',@CodeRule)-1),
??@s=@s
???+N'+CASE WHEN LEN( '+@FieldName
???+N')>'+CAST(@lens as varchar)
???+N' THEN RIGHT('+CAST(POWER(10,@len) as varchar)
???+N'+(SELECT COUNT(DISTINCT '+@FieldName
???+N') FROM '+@TableName
???+N' WHERE '+@FieldName+N'<=a.'+@FieldName
???+N' AND '+@FieldName+N' LIKE LEFT( a.'+@FieldName
???+N','+CAST(@lens as varchar)
???+N')+'''+REPLICATE(N'_',@len)
???+N'''),'+CAST(@len as varchar)
???+N') ELSE '''' END',
??@lens=@lens+@len,
??@CodeRule=STUFF(@CodeRule,1,CHARINDEX(N',',@CodeRule),N'')
END
EXEC(N'UPDATE a SET '+@FieldName+N'='+@s+N' FROM '+@TableName+N' a')

樹形數據編號重排的通用存儲過程