----------------------------------------------------------------------------
-- 分段截取函数
----------------------------------------------------------------------------
CREATE FUNCTION DBO.FUN_SplitStr(
@S VARCHAR(8000), -- 包含多个数据项的字符串
@POS INT, -- 要获取的数据项的位置
@SPLIT VARCHAR(10) -- 数据分隔符
) RETURNS VARCHAR(128)
AS
BEGIN
IF @S IS NULL RETURN(NULL)
DECLARE @SPLITLEN INT
SELECT @SPLITLEN=LEN(@SPLIT+'A')-2
WHILE @POS>1 AND CHARINDEX(@SPLIT,@S+@SPLIT)>0 BEGIN
SELECT @POS=@POS-1,
@S=STUFF(@S,1,CHARINDEX(@SPLIT,@S+@SPLIT)+@SPLITLEN,'')
END
RETURN LEFT(@S,@S+@SPLIT)-1)
END
------------------------------------------- --行列转换 ------------------------------------------- CREATE PROC PRC_CORSSQUERY @NVR_TABNAME AS NVARCHAR(1024) = '',-- 此处放表名 @NVR_XCOL AS NVARCHAR(1024) = '',-- 表头分组依据字段 (横向字段,以系统编号作为依据,内部转化,此字段只能有一个) @NVR_YCOL AS NVARCHAR(1024) = '',-- 分组字段 (纵向字段,直接取名称列,可以有多个,多个用逗号分隔) @NVR_STATCOL AS NVARCHAR(1024) = '',-- 被统计的字段 (值) @NVR_WHERE AS NVARCHAR(4000)='',-- WHERE条件 (一定要带 WHERE 语句,如:WHERE 地区=''广州'' ) * 注意字符一定要用两个分号. @NVR_TOTAL AS NVARCHAR(1024)='',-- 合计的公式( SUM,AVG,将其放在第一列.如果多项,请用逗号分隔) @NVR_ORDERBY AS NVARCHAR(1024)='' -- 排序字段,如: [海关编码],[地区] AS BEGIN --SET NOCOUNT ON DECLARE @NVR_CMD AS NVARCHAR(4000) DECLARE @NVR_XCOLNAME AS NVARCHAR(256) DECLARE @NVR_sql0 AS NVARCHAR(4000) DECLARE @NVR_sql1 AS NVARCHAR(4000) DECLARE @NVR_sql2 AS NVARCHAR(4000) DECLARE @NVR_sql3 AS NVARCHAR(4000) DECLARE @NVR_sql4 AS NVARCHAR(4000) DECLARE @NVR_sql5 AS NVARCHAR(4000) DECLARE @NVR_sql6 AS NVARCHAR(4000) DECLARE @NVR_sql7 AS NVARCHAR(4000) DECLARE @NVR_sql8 AS NVARCHAR(4000) DECLARE @NVR_sql9 AS NVARCHAR(4000) DECLARE @NVR_sql10 AS NVARCHAR(4000) DECLARE @NVR_sql11 AS NVARCHAR(4000) DECLARE @NVR_sql12 AS NVARCHAR(4000) DECLARE @NVR_sql13 AS NVARCHAR(4000) DECLARE @NVR_sql14 AS NVARCHAR(4000) DECLARE @NVR_sql15 AS NVARCHAR(4000) DECLARE @NVR_sql16 AS NVARCHAR(4000) DECLARE @NVR_sql17 AS NVARCHAR(4000) DECLARE @NVR_sql18 AS NVARCHAR(4000) DECLARE @NVR_sql19 AS NVARCHAR(4000) DECLARE @NVR_sql20 AS NVARCHAR(4000) DECLARE @NVR_DATETYPE AS NVARCHAR(1) DECLARE @INT_ID AS INT DECLARE @NVR_GOODSUNIT AS NVARCHAR(32) DECLARE @INT_UNIT INT SELECT @NVR_sql0='',@INT_ID=0,@NVR_sql0='',@NVR_sql1='',@NVR_sql2='',@NVR_sql3='',@NVR_sql4='',@NVR_sql5='',@NVR_sql6='',@NVR_sql7='',@NVR_sql8='',@NVR_sql9='',@NVR_sql10='',@NVR_sql11='',@NVR_sql12='',@NVR_sql13='',@NVR_sql14='',@NVR_sql15='',@NVR_sql16='',@NVR_sql17='',@NVR_sql18='',@NVR_sql19='',@NVR_sql20='' DECLARE @INT_I INT DECLARE @NVR_FLDNAME NVARCHAR(128) SET @NVR_sql0 = ' SELECT ' + @NVR_YCOL -- 横向合计 DECLARE @NVR_SPTOTAL NVARCHAR(512) DECLARE @INT_N AS INT DECLARE @NVR_TOTALsql NVARCHAR(512) SELECT @INT_N=0,@NVR_TOTALsql='',@NVR_TOTAL=RTRIM(LTRIM(ISNULL(@NVR_TOTAL,''))) IF @NVR_TOTAL <>'' BEGIN WHILE (1=1) BEGIN SET @INT_N=@INT_N+1 SELECT @NVR_SPTOTAL= DBO.FUN_SplitStr(@NVR_TOTAL,@INT_N,',') -- 以逗号为分隔 SET @NVR_SPTOTAL=LTRIM(RTRIM(ISNULL(@NVR_SPTOTAL,''))) IF @NVR_SPTOTAL <>'' BEGIN IF @NVR_SPTOTAL='SUM' BEGIN SET @NVR_TOTALsql=@NVR_TOTALsql + ',' + @NVR_SPTOTAL + '(' + @NVR_STATCOL + ') AS [SUM]' END ELSE IF @NVR_SPTOTAL='AVG' BEGIN SET @NVR_TOTALsql=@NVR_TOTALsql + ',' + @NVR_SPTOTAL + '(' + @NVR_STATCOL + ') AS [AVG]' END ELSE IF @NVR_SPTOTAL='MAX' BEGIN SET @NVR_TOTALsql=@NVR_TOTALsql + ',' + @NVR_SPTOTAL + '(' + @NVR_STATCOL + ') AS [MAX]' END ELSE IF @NVR_SPTOTAL='MIN' BEGIN SET @NVR_TOTALsql=@NVR_TOTALsql + ',' + @NVR_SPTOTAL + '(' + @NVR_STATCOL + ') AS [MIN]' END END ELSE BEGIN BREAK END END SET @NVR_sql0=@NVR_sql0 + @NVR_TOTALsql END SET @NVR_CMD='DECLARE CORSS_CURSOR CURSOR FOR SELECT disTINCT ' + @NVR_XCOL + ' FROM ' + @NVR_TABNAME + ' ' + @NVR_WHERE + ' ORDER BY ' + @NVR_XCOL + ' FOR READ ONLY ' --生成游标 EXECUTE (@NVR_CMD) OPEN CORSS_CURSOR WHILE (1=1) BEGIN FETCH NEXT FROM CORSS_CURSOR INTO @NVR_XCOLNAME --遍历游标，将列头信息放入变量@NVR_XCOLNAME IF (@@FETCH_STATUS <>0) BREAK SET @INT_ID=@INT_ID+1 SET @NVR_XCOLNAME=REPLACE(@NVR_XCOLNAME,CHAR(39),CHAR(39)+CHAR(39)) ------------------------------------------------------------------------------ -- 可添加 数量,单价,金额 同时显示.单价= ( 金额 / 数量) . IF @INT_ID <=50 SET @NVR_sql1 = @NVR_sql1 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=100 SET @NVR_sql2 = @NVR_sql2 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=150 SET @NVR_sql3 = @NVR_sql3 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=200 SET @NVR_sql4 = @NVR_sql4 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=250 SET @NVR_sql5 = @NVR_sql5 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=300 SET @NVR_sql6 = @NVR_sql6 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=350 SET @NVR_sql7 = @NVR_sql7 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=400 SET @NVR_sql8 = @NVR_sql8 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=450 SET @NVR_sql9 = @NVR_sql9 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=500 SET @NVR_sql10 = @NVR_sql10 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=550 SET @NVR_sql11 = @NVR_sql11 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=600 SET @NVR_sql12 = @NVR_sql12 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=650 SET @NVR_sql13 = @NVR_sql13 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=700 SET @NVR_sql14 = @NVR_sql14 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=750 SET @NVR_sql15 = @NVR_sql15 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=800 SET @NVR_sql16 = @NVR_sql16 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=850 SET @NVR_sql17 = @NVR_sql17 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=900 SET @NVR_sql18 = @NVR_sql18 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=950 SET @NVR_sql19 = @NVR_sql19 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 ELSE IF @INT_ID <=1000 SET @NVR_sql20 = @NVR_sql20 + ',SUM(CASE ' + @NVR_XCOL + ' WHEN ''' + @NVR_XCOLNAME + ''' THEN ' + @NVR_STATCOL + ' ELSE NULL END) AS [' + @NVR_XCOLNAME + ']' --构造查询 END -- WHILE (1 = 1) --直接返回结果. IF @NVR_ORDERBY='' BEGIN --未指定排序字段. EXECUTE ( @NVR_sql0 + @NVR_sql1 + @NVR_sql2 + @NVR_sql3 + @NVR_sql4 + @NVR_sql5 + @NVR_sql6 + @NVR_sql7 + @NVR_sql8 + @NVR_sql9 + @NVR_sql10 + @NVR_sql11 + @NVR_sql12 + @NVR_sql13 + @NVR_sql14 + @NVR_sql15 + @NVR_sql16 + @NVR_sql17 + @NVR_sql18 + @NVR_sql19 + @NVR_sql20 + N' FROM ' + @NVR_TABNAME + N' ' + @NVR_WHERE + N' GROUP BY ' + @NVR_YCOL ) -- 执行 END ELSE BEGIN --指定排序字段. EXECUTE (N'SELECT * FROM (' + @NVR_sql0 + @NVR_sql1 + @NVR_sql2 + @NVR_sql3 + @NVR_sql4 + @NVR_sql5 + @NVR_sql6 + @NVR_sql7 + @NVR_sql8 + @NVR_sql9 + @NVR_sql10 + @NVR_sql11 + @NVR_sql12 + @NVR_sql13 + @NVR_sql14 + @NVR_sql15 + @NVR_sql16 + @NVR_sql17 + @NVR_sql18 + @NVR_sql19 + @NVR_sql20 + N' FROM ' + @NVR_TABNAME + N' ' + @NVR_WHERE + N' GROUP BY ' + @NVR_YCOL + N') AS T86C6S9R ORDER BY ' + @NVR_ORDERBY ) -- 执行 END CLOSE CORSS_CURSOR DEALLOCATE CORSS_CURSOR RETURN 0 --释放游标，返回0表示成功 END GO
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
