-- ============================================================================
-- 通用动态交叉表的实现
-------------------------------------------------------------------------------
-- usp_Crosstab
-------------------------------------------------------------------------------

CREATE                  PROCEDURE usp_Crosstab
 @table varchar(50),   --表名
 @sumRow varchar(8000),  --合计列字段
 @groupRow varchar(1000),  --分组列字段
 @col varchar(50),   --要将列值转换为列的列字段
 @colTable varchar(1000), --要将列值转换为列的列字段表
 @Sortfield varchar(100), --要将列值转换为列的列字段表排序字段
 @SubSortfield varchar(100), --要将列值转换为列的列字段表子排序字段  
 @content varchar(50),   --列值转换为列后列的内容字段
 @showSum varchar(50),  --显示总计列名
 @showSubtotal varchar(50), --显示小计列
 @where varchar(8000)  --查询条件
AS
 DECLARE @declareSql varchar(8000),  --变量定义的SQL
  @initSql varchar(8000),  --初始变量的SQL
  @SubsectionSQL varchar(8000),  --读取以4000分段后数据的SQL
  @CombinationSQL varchar(8000),  --分段后各个变量组合的SQL
  @EndFromSQL varchar(8000),  --组合的后辍(表名、分组列名)的SQL
  @i int,    --根据4000为分段迭代得到的i
  @ic varchar(50),   --转成字符串后的i
  @mc varchar(50)   --变量的个数

 EXEC('select ID=Identity(int,1,1),COL=''sum(case '+@col+' when

''''''+'+@col+'+'''''' then '+@content+' else 0 end) as ''''''+'+@col+'+'''''',''

,GID=0,Sort= '+@Sortfield+', SubSort = '+@SubSortfield+' into ##tmp from (select

'+@col+'=replace('+@col+','''''''',''''''''''''),'+@Sortfield+','+@SubSortfield+' from

'+@colTable+')a')

 SELECT @i=MAX(len(COL)) FROM ##tmp
 SET @i=4000/@i
 
 UPDATE ##tmp SET GID=ID/@i
 
 SELECT @i=MAX(GID),@mc=cast(@i AS varchar(50)) FROM ##tmp
 SELECT

@declareSql='',@initSql='',@SubsectionSQL='',@CombinationSQL='',@EndFromSQL=''
 
 
 WHILE @i>=0
 BEGIN
  SELECT @ic=cast(@i AS varchar(50)),@i=@i-1,@declareSql='@'+@ic+' as

varchar(4000),'+@declareSql,@initSql='@'+@ic+'='''','+@initSql,
  @SubsectionSQL='select @'+@ic+'=@'+@ic+'+COL from ##tmp where

gid='''+@ic+''' order by Sort, SubSort '+char(13)

+@SubsectionSQL,@CombinationSQL='@'+@ic+'+'+@CombinationSQL
 END
 
 SET @EndFromSQL=''' into ##CrossTable  from '+@table+' where '+@where+' group by

'+@groupRow+''''
 SELECT @declareSql='declare '+left(@declareSql,len(@declareSql)-1)+char

(13),@initSql='select '+left(@initSql,len(@initSql)-1)+char(13),@CombinationSQL=left

(@CombinationSQL,len(@CombinationSQL)-1)
 EXEC(@declareSql+@initSql+@SubsectionSQL+
 'set @'+@mc+'=left(@'+@mc+',len(@'+@mc+')-1)'+
 'exec(''select '+@sumRow+',''+'+@CombinationSQL+'+'+@EndFromSQL+')'
 )

 EXEC('UPDATE ##CrossTable SET '+@showSum+' = ''总计'', '+@showSubtotal+' = null

WHERE '+@showSum+' IS NULL ')

 SELECT * FROM ##CrossTable
 DROP TABLE ##tmp
 DROP TABLE ##CrossTable

 GO

<script language="javascript">

 //四舍五入 
 Number.prototype.toFixed=function(len)
 {
  var add = 0;
  var s,temp;
  var l = this + "";
  var start = l.indexOf(".");
  if(l.substr(start+len+1,1)>=5)add=1;
  var temp = Math.pow(10,len);
  s = Math.floor(this * temp) + add;
  return s/temp;
 }
 
 //实现计算金额 
 function count(obj)
 {
  var regInt = /^\d+$/;
  var regMondy = /^(0|[1-9]\d*)$|^(0|[1-9]\d*)\.(\d+)$/;

  // 找出TextBox
  var objParent = obj.parentElement.parentElement;
  var textBoxs = objParent.getElementsByTagName("input");
  var TxtGoodsNum = null;
  var TxtGoodsSinglePrice = null;
  var TxtGoodsSumPrice = null;
 
  for( var i=0;i < textBoxs.length;i ++)
  {
   if(textBoxs[i].id.indexOf("txtGoodsNum") != -1)
   {
    TxtGoodsNum = textBoxs[i];
   }
   else if(textBoxs[i].id.indexOf("txtGoodsSinglePrice") != -1)
   {
    TxtGoodsSinglePrice = textBoxs[i];
   }
   else if(textBoxs[i].id.indexOf("txtGoodsSumPrice") != -1)
   {
    TxtGoodsSumPrice = textBoxs[i];
   }
  }

  if(!regInt.test(TxtGoodsNum.value))
  {
   alert("数量只能是数字，请您重新输入数量。");
   return;
  }
  if(!regMondy.test(TxtGoodsSinglePrice.value))
  {
   alert("单价只能是数字，请您重新输入单价。");
   return;
  }
 
 
  var GoodsNum = parseInt(TxtGoodsNum.value); //数量
  var SinglePrice = parseFloat(TxtGoodsSinglePrice.value); //单价
  var GoodsSumPrice = GoodsNum * SinglePrice;
 
  TxtGoodsSumPrice.value = GoodsSumPrice.toFixed(3).toString();
 }
 
</script>

调用：

<asp:TextBox id=txtGoodsNum onblur=count(this) runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.Goods_Num") %>' Width="60px">