通用的排序的上移下移功能

通用的排序的上移下移功能2011-02-03 博客园坤哥儿前两天需要实现一个上移下移功能，就上网上搜了一下，没想到这个简单的小功能也没有搜到特别理想的结果，只有自己动手丰衣足食了，虽然简单，但是希望对大家有所帮助。

功能：实现任意有排序字段表单的上移和下移，并可以按分类来操作排序。

首先是存储过程：

写的稍微有些繁琐，可能是半夜太困了吧

1 ALTER PROCEDURE [dbo].[Proc_Common_UpDown]
  2
  3
  4 @Sign int = 0,   -- 0： 上移 1：下移
  5 @TableName nvarchar（50）, -- 表名
  6 @ItemName nvarchar（50）,  -- 主键字段名
  7 @ItemID int,             -- 主键ID
  8 @SortName nvarchar（50）,     -- 排序ID
  9 @TypeName nvarchar（50）="", -- 分类字段名
10 @TypeValue nvarchar（50）= "" -- 分类值
11
12 AS
13
14 BEGIN
15     SET NOCOUNT ON
16
17     DECLARE
18         @SQL nvarchar（4000）,
19         @ThisSort int, -- 当前ID
20         @PREVID int, -- 前一个ID
21         @NextID int,  -- 后一个ID
22         @Count int
23
24     --临时索引表--
25     CREATE TABLE #Tab 
26     （
27         ItemID int,
28         Sort int
29     ）
30     SET @SQL = "INSERT INTO #Tab （ItemID,Sort） SELECT "
31         +@ItemName+","+@SortName+" FROM "+@TableName
32
33     IF （@TypeName<>"" AND @TypeValue<>""） SET @SQL = @SQL+" WHERE "+@TypeName+"="+@TypeValue
34     SET @SQL = @SQL+" ORDER BY Sort ASC "
35     EXEC（@SQL）
36     SET @SQL = ""
37     
38     SELECT @Count = COUNT（*） FROM #Tab
39     SELECT @ThisSort = Sort FROM #Tab WHERE ItemID = @ItemID
40     IF（@ThisSort>1） SELECT @PREVID = ItemID FROM #Tab WHERE Sort=（@ThisSort-1）
41     IF（@ThisSort<@Count） SELECT @NextID = ItemID FROM #Tab WHERE Sort=（@ThisSort+1）
42
43     IF（@Sign=0）
44         BEGIN
45             IF（@ThisSort>1）
46             BEGIN
47                 SET @SQL = "UPDATE "+@TableName+" SET "+@SortName+"="+CONVERT（varchar（100）,（@ThisSort-1））+" WHERE "+@ItemName+" = "+CONVERT（varchar（100）,@ItemID） + ";"
48                  + "UPDATE "+@TableName+" SET "+@SortName+"="+CONVERT（varchar（100）,@ThisSort）+" WHERE "+@ItemName+" = "+CONVERT（varchar（100）,@PREVID）
49
50             END
51         END
52     ELSE
53         BEGIN
54             IF（@ThisSort<@Count）
55             BEGIN
56                 SET @SQL = "UPDATE "+@TableName+" SET "+@SortName+"="+CONVERT（varchar（100）,（@ThisSort+1））+" WHERE "+@ItemName+" = "+CONVERT（varchar（100）,@ItemID） + ";"
57                  + "UPDATE "+@TableName+" SET "+@SortName+"="+CONVERT（varchar（100）,@ThisSort）+" WHERE "+@ItemName+" = "+CONVERT（varchar（100）,@NextID）
58             END
59         END
60
61     EXEC（@SQL）
62
63 END
64