求助邹建！！！

老七 2006-02-21 10:20:02
CREATE TABLE BOM单(产品 varchar(10),材料 varchar(10),消耗 decimal(28,6))
declare @i int
declare @J int
set @J = 0
set @i = 0
while @I < 4
begin
while @j < 26
begin
insert bom单 select char(65+@i)+char(65+@j),N'a',2
insert bom单 select char(65+@i)+char(65+@j),N'b',2
insert bom单 select char(65+@i)+char(65+@j),N'c',2
insert bom单 select char(65+@i)+char(65+@j),N'd',2
insert bom单 select char(65+@i)+char(65+@j),N'e',2
insert bom单 select char(65+@i)+char(65+@j),N'f',2
insert bom单 select char(65+@i)+char(65+@j),N'g',2
insert bom单 select char(65+@i)+char(65+@j),N'h',2
insert bom单 select char(65+@i)+char(65+@j),N'i',2
insert bom单 select char(65+@i)+char(65+@j),N'j',2
set @j = @J + 1
end
set @i = @i + 1
set @J = 0
end
go


CREATE TABLE 产品生产计划( 产品 varchar(10),产量 decimal(28,6))
declare @ii int
declare @jj int
set @jj = 0
set @ii = 0
while @ii < 3
begin
while @jj < 26
begin
insert 产品生产计划 select char(65+@ii)+char(65+@jj),5
set @jj = @jj + 1
end
set @ii = @ii + 1
set @jj = 0
end


go

CREATE TABLE 产品生产物料采购计划( 产品 varchar(10),产量 decimal(28,6),材料 varchar(60),规格 varchar(60),单位 varchar(4),消耗 decimal(28,6),计划消耗 decimal(28,6))


DECLARE @p产品 varchar(10)
DECLARE @p产量 decimal(28,6)


DECLARE cp_Cursor CURSOR FOR
select 产品,产量 from 产品生产计划

OPEN cp_Cursor
FETCH NEXT FROM cp_Cursor into @p产品,@p产量

WHILE @@FETCH_STATUS = 0
BEGIN
Insert Into 产品生产物料采购计划(产品,产量,材料,消耗,计划消耗) select @p产品,@p产量,bo.材料,bo.消耗,bo.消耗*@p产量 from bom单 bo where bo.产品=@p产品
FETCH NEXT FROM cp_Cursor into @p产品,@p产量
END
CLOSE cp_Cursor
DEALLOCATE cp_Cursor


declare @sqlhead varchar(8000)
declare @sqlend varchar(8000)
declare @sql1 varchar(8000)
declare @sql2 varchar(8000)
declare @sql3 varchar(8000)
declare @sql4 varchar(8000)
declare @i int
declare @ic varchar(20)

--生成数据处理临时表
select id=identity(int,0,1),gid=0 ,a=',['+产品 +']=sum(case 产品 when ''' +产品+''' then 计划消耗 else 0 end)'
into # from(select distinct 产品 from 产品生产物料采购计划) a order by 产品

select @i=max(len(a)) from #
print @i
set @i=7800/@i

update # set gid=id/@i
select @i=max(gid) from #



--生成数据处理语句
select @sqlhead='''select 材料,规格,单位,sum(计划消耗) as 计划消耗合计'''
select @sqlend=''' from 产品生产物料采购计划 group by 材料,规格,单位'''
select @sql1=''
select @sql2='select '
select @sql3=''
select @sql4=''


print @i
while @i>=0
select @ic=cast(@i as varchar),@i=@i-1
select @sql1='@'+@ic+' varchar(8000),'+@sql1
select @sql2=@sql2+'@'+@ic+'='''','
select @sql3='select @'+@ic+'=@'+@ic+'+a from # where gid='+@ic+char(13)+@sql3
select @sql4=@sql4+',@'+@ic

select @sql1='declare '+left(@sql1,len(@sql1)-1)+char(13)
select @sql2=left(@sql2,len(@sql2)-1)+char(13)
select @sql3=left(@sql3,len(@sql3)-1)
select @sql4=substring(@sql4,2,8000)

--执行
exec( @sql1+@sql2+@sql3+'
exec('+@sqlhead+'+'+@sql4+'+'+@sqlend+')'
)




--删除临时表
drop table #
--*/

drop TABLE BOM单
drop TABLE 产品生产计划
drop TABLE 产品生产物料采购计划

没办法，一知半解，以上为参考网上相关资料后根据需求写出，程序不能过关，再一次求救。
需要在运行结果的基础上，第二行显示生产计划数。
...全文
391 33 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
33 条回复
切换为时间正序
请发表友善的回复…
发表回复
老七 2006-02-24
  • 打赏
  • 举报
 回复
结帖
老七 2006-02-23
  • 打赏
  • 举报
 回复
happyflystone 已开接分帖

http://community.csdn.net/Expert/topic/4572/4572495.xml?temp=.4253961
老七 2006-02-23
  • 打赏
  • 举报
 回复
happyflystone 已开接分帖，此帖也兑现，请查收，此帖我还想放一下。谢谢。通过此帖，收获不少！

CREATE TABLE 产品生产计划( 产品 varchar(10),产量 decimal(28,6))
declare @ii int
declare @jj int
set @jj = 0
set @ii = 0
while @ii < 3
begin
while @jj < 26
begin
insert 产品生产计划 select char(65+@ii)+char(65+@jj),5
set @jj = @jj + 1
end
set @ii = @ii + 1
set @jj = 0
end

问题：while @ii < 3
@ii最大只能5，如改为 while @ii < 6 运行出错，我就想到@ii=8不出错。


-狙击手- 2006-02-23
  • 打赏
  • 举报
 回复
CREATE TABLE BOM单(产品 varchar(10),材料 varchar(10),消耗 decimal(28,6))
declare @i int
declare @J int
set @J = 0
set @i = 0
while @I < 4
begin
while @j < 26
begin
insert bom单 select char(65+@i)+char(65+@j),N'a',2
insert bom单 select char(65+@i)+char(65+@j),N'b',2
insert bom单 select char(65+@i)+char(65+@j),N'c',2
insert bom单 select char(65+@i)+char(65+@j),N'd',2
insert bom单 select char(65+@i)+char(65+@j),N'e',2
insert bom单 select char(65+@i)+char(65+@j),N'f',2
insert bom单 select char(65+@i)+char(65+@j),N'g',2
insert bom单 select char(65+@i)+char(65+@j),N'h',2
insert bom单 select char(65+@i)+char(65+@j),N'i',2
insert bom单 select char(65+@i)+char(65+@j),N'j',2
set @j = @J + 1
end
set @i = @i + 1
set @J = 0
end
go


CREATE TABLE 产品生产计划( 产品 varchar(10),产量 decimal(28,6))
declare @ii int
declare @jj int
set @jj = 0
set @ii = 0
while @ii < 3
begin
while @jj < 26
begin
insert 产品生产计划 select char(65+@ii)+char(65+@jj),5
set @jj = @jj + 1
end
set @ii = @ii + 1
set @jj = 0
end


go

CREATE TABLE 产品生产物料采购计划( 产品 varchar(10),产量 decimal(28,6),材料 varchar(60),规格 varchar(60),单位 varchar(4),消耗 decimal(28,6),计划消耗 decimal(28,6))
DECLARE @p产品 varchar(10)
DECLARE @p产量 decimal(28,6)

DECLARE cp_Cursor CURSOR FOR
select 产品,产量 from 产品生产计划

OPEN cp_Cursor
FETCH NEXT FROM cp_Cursor into @p产品,@p产量

WHILE @@FETCH_STATUS = 0
BEGIN
Insert Into 产品生产物料采购计划(产品,产量,材料,消耗,计划消耗) select @p产品,@p产量,bo.材料,bo.消耗,bo.消耗*@p产量 from bom单 bo where bo.产品=@p产品
FETCH NEXT FROM cp_Cursor into @p产品,@p产量
END
CLOSE cp_Cursor
DEALLOCATE cp_Cursor
GO

declare @sqlhead varchar(8000)
declare @sqlend varchar(8000)
declare @sql1 varchar(8000)
declare @sql2 varchar(8000)
declare @sql3 varchar(8000)
declare @sql4 varchar(8000)

declare @sqlhead_ varchar(8000)
declare @sqlend_ varchar(8000)
declare @sql1_ varchar(8000)
declare @sql2_ varchar(8000)
declare @sql3_ varchar(8000)
declare @sql4_ varchar(8000)

declare @i int
declare @ic varchar(20)

--生成数据处理临时表
select id=identity(int,0,1),gid=0 ,a=',['+产品 +']=sum(case 产品 when ''' +产品+''' then 计划消耗 else 0 end)'
,b=',['+产品 +']=sum(case 产品 when ''' +产品+''' then 产量 else 0 end)'
into # from(select distinct 产品 from 产品生产物料采购计划) a order by 产品

select @i=max(len(a)) from #
print @i
set @i=7800/@i

update # set gid=id/@i
select @i=max(gid) from #



--生成数据处理语句
select @sqlhead=''' union all select 材料, 规格, 单位, 类别=''''计划消耗'''',
sum(计划消耗) as 合计'''
select @sqlend=''' from 产品生产物料采购计划 group by 材料,规格,单位'''
select @sql1=''
select @sql2='select '
select @sql3=''
select @sql4=''

select @sqlhead_='''select distinct 材料='''''''',规格='''''''', 单位='''''''', 类别=''''产品产量'''',
sum(产量) as 合计'''
select @sqlend_=''' from 产品生产物料采购计划 group by 材料,规格,单位 '''
select @sql1_=''
select @sql2_='select '
select @sql3_=''
select @sql4_=''


print @i
while @i>=0
begin
select @ic=cast(@i as varchar),@i=@i-1
select @sql1='@'+@ic+' varchar(8000),'+@sql1
select @sql2=@sql2+'@'+@ic+'='''','
select @sql3='select @'+@ic+'=@'+@ic+'+a from # where gid='+@ic+char(13)+@sql3
select @sql4=@sql4+',@'+@ic

select @sql1_='@_'+@ic+' varchar(8000),'+@sql1_
select @sql2_=@sql2_+'@_'+@ic+'='''','
select @sql3_='select @_'+@ic+'=@_'+@ic+'+b from # where gid='+@ic+char(13)+@sql3_
select @sql4_=@sql4_+',@_'+@ic
end

select @sql1='declare '+left(@sql1,len(@sql1)-1)+char(13)
select @sql2=left(@sql2,len(@sql2)-1)+char(13)
select @sql3=left(@sql3,len(@sql3)-1)
select @sql4=substring(@sql4,2,8000)

select @sql1_='declare '+left(@sql1_,len(@sql1_)-1)+char(13)
select @sql2_=left(@sql2_,len(@sql2_)-1)+char(13)
select @sql3_=left(@sql3_,len(@sql3_)-1)
select @sql4_=substring(@sql4_,2,8000)



--执行
exec(
@sql1_+@sql2_+@sql3_+'
'
+@sql1+@sql2+@sql3+'
exec('+@sqlhead_+'+'+@sql4_+'+'+@sqlend_+'+'
+@sqlhead+'+'+@sql4+'+'+@sqlend+')'
)

--删除临时表
drop table #
--*/
go

drop TABLE BOM单
drop TABLE 产品生产计划
drop TABLE 产品生产物料采购计划


/*

材料 规格 单位 类别 合计 AA ...
产品产量 390.000000 5.000000 ..
a NULL NULL 计划消耗 780.000000 10.000000 ..
b NULL NULL 计划消耗 780.000000 10.000000 ..
c NULL NULL 计划消耗 780.000000 10.000000 ..
d NULL NULL 计划消耗 780.000000 10.000000 ..
e NULL NULL 计划消耗 780.000000 10.000000 ..
f NULL NULL 计划消耗 780.000000 10.000000 ..
g NULL NULL 计划消耗 780.000000 10.000000 ..
h NULL NULL 计划消耗 780.000000 10.000000 ..
i NULL NULL 计划消耗 780.000000 10.000000 ..
j NULL NULL 计划消耗 780.000000 10.000000 ..


*/

老七 2006-02-23
  • 打赏
  • 举报
 回复
--生成数据处理临时表
select id=identity(int,0,1),gid=0 ,a=',['+产品 +']=sum(case 产品 when ''' +产品+''' then 计划消耗 else 0 end)'
,b=',['+产品 +']=sum(case 产品 when ''' +产品+''' then 产量 else 0 end)'
into # from(select distinct 产品 from 产品生产物料采购计划) a order by 产品


b=....应该是错误的，我还是不会改。
老七 2006-02-23
  • 打赏
  • 举报
 回复
运行邹老师（20:16:00)的回复，表第二行不是计划数，计划数应是5.
谢谢。
-狙击手- 2006-02-23
  • 打赏
  • 举报
 回复
计划数量有点问题！
---


什么问题？
老七 2006-02-23
  • 打赏
  • 举报
 回复
邹老师：计划数量有点问题！（20:16:00)
消化的结果是还有点问题
zjcxc 2006-02-22
  • 打赏
  • 举报
 回复
难道--难得
zjcxc 2006-02-22
  • 打赏
  • 举报
 回复
不是union 的方法, 不知道是否合楼主的要求.

如果要union 的方法, 那其实也不太难,

如果可以了就给分, 难道来上网 :D
zjcxc 2006-02-22
  • 打赏
  • 举报
 回复
大致结果如下(最好自己运行我的过程去看测试结果)

材料 规格 单位 类别 合计 AA AB
-------- -------- -------- --------- ----------------- --------- -----
a NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
b NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
c NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
d NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
e NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
f NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
g NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
h NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
i NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
j NULL NULL 计划消耗 780.000000 10.000000 10.000000
产品产量 390.000000 5.000000 5.000000
zjcxc 2006-02-22
  • 打赏
  • 举报
 回复
use tempdb
go

CREATE TABLE BOM单(产品 varchar(10),材料 varchar(10),消耗 decimal(28,6))
declare @i int
declare @J int
set @J = 0
set @i = 0
while @I < 4
begin
while @j < 26
begin
insert bom单 select char(65+@i)+char(65+@j),N'a',2
insert bom单 select char(65+@i)+char(65+@j),N'b',2
insert bom单 select char(65+@i)+char(65+@j),N'c',2
insert bom单 select char(65+@i)+char(65+@j),N'd',2
insert bom单 select char(65+@i)+char(65+@j),N'e',2
insert bom单 select char(65+@i)+char(65+@j),N'f',2
insert bom单 select char(65+@i)+char(65+@j),N'g',2
insert bom单 select char(65+@i)+char(65+@j),N'h',2
insert bom单 select char(65+@i)+char(65+@j),N'i',2
insert bom单 select char(65+@i)+char(65+@j),N'j',2
set @j = @J + 1
end
set @i = @i + 1
set @J = 0
end
go


CREATE TABLE 产品生产计划( 产品 varchar(10),产量 decimal(28,6))
declare @ii int
declare @jj int
set @jj = 0
set @ii = 0
while @ii < 3
begin
while @jj < 26
begin
insert 产品生产计划 select char(65+@ii)+char(65+@jj),5
set @jj = @jj + 1
end
set @ii = @ii + 1
set @jj = 0
end


go

CREATE TABLE 产品生产物料采购计划( 产品 varchar(10),产量 decimal(28,6),材料 varchar(60),规格 varchar(60),单位 varchar(4),消耗 decimal(28,6),计划消耗 decimal(28,6))
DECLARE @p产品 varchar(10)
DECLARE @p产量 decimal(28,6)

DECLARE cp_Cursor CURSOR FOR
select 产品,产量 from 产品生产计划

OPEN cp_Cursor
FETCH NEXT FROM cp_Cursor into @p产品,@p产量

WHILE @@FETCH_STATUS = 0
BEGIN
Insert Into 产品生产物料采购计划(产品,产量,材料,消耗,计划消耗) select @p产品,@p产量,bo.材料,bo.消耗,bo.消耗*@p产量 from bom单 bo where bo.产品=@p产品
FETCH NEXT FROM cp_Cursor into @p产品,@p产量
END
CLOSE cp_Cursor
DEALLOCATE cp_Cursor
GO

declare @sqlhead varchar(8000)
declare @sqlend varchar(8000)
declare @sql1 varchar(8000)
declare @sql2 varchar(8000)
declare @sql3 varchar(8000)
declare @sql4 varchar(8000)
declare @i int
declare @ic varchar(20)

--生成数据处理临时表
select id=identity(int,0,1),gid=0 ,a=',['+产品 +']=sum(case 产品 when ''' +产品+''' then case when id=1 then 计划消耗 else 产量 end else 0 end)'
into # from(select distinct 产品 from 产品生产物料采购计划) a order by 产品

select @i=max(len(a)) from #
print @i
set @i=7800/@i

update # set gid=id/@i
select @i=max(gid) from #



--生成数据处理语句
select @sqlhead='''select 材料=case when b.id=1 then 材料 else '''''''' end,
规格=case when b.id=1 then 规格 else '''''''' end,
单位=case when b.id=1 then 单位 else '''''''' end,
类别=case when b.id=1 then ''''计划消耗'''' else ''''产品产量'''' end,
sum(case when id=1 then 计划消耗 else 产量 end) as 合计'''
select @sqlend=''' from 产品生产物料采购计划,(select id=1 union all select id=2)b group by id,材料,规格,单位 order by case when b.id=1 then 材料 else 材料 end,b.id'''
select @sql1=''
select @sql2='select '
select @sql3=''
select @sql4=''


print @i
while @i>=0
select @ic=cast(@i as varchar),@i=@i-1
select @sql1='@'+@ic+' varchar(8000),'+@sql1
select @sql2=@sql2+'@'+@ic+'='''','
select @sql3='select @'+@ic+'=@'+@ic+'+a from # where gid='+@ic+char(13)+@sql3
select @sql4=@sql4+',@'+@ic

select @sql1='declare '+left(@sql1,len(@sql1)-1)+char(13)
select @sql2=left(@sql2,len(@sql2)-1)+char(13)
select @sql3=left(@sql3,len(@sql3)-1)
select @sql4=substring(@sql4,2,8000)

--执行
exec( @sql1+@sql2+@sql3+'
exec('+@sqlhead+'+'+@sql4+'+'+@sqlend+')'
)




--删除临时表
drop table #
--*/

drop TABLE BOM单
drop TABLE 产品生产计划
drop TABLE 产品生产物料采购计划
老七 2006-02-22
  • 打赏
  • 举报
 回复
实现方法肯定不会仅一条，求UNION 方法。500分都可以。
logoes 2006-02-22
  • 打赏
  • 举报
 回复
收藏
老七 2006-02-22
  • 打赏
  • 举报
 回复
分已给出 请查收 呵呵 谢谢
明天消化
老七 2006-02-22
  • 打赏
  • 举报
 回复
这个UNION 不容易
是是非非 2006-02-22
  • 打赏
  • 举报
 回复
想了几个小时，没搞定，期待邹大牛出现～
老七 2006-02-22
  • 打赏
  • 举报
 回复
是不是非常难？
zjcxc 2006-02-22
  • 打赏
  • 举报
 回复
-- show 一下, 如果楼主用sql 2005, 则不用那么复杂, 下面的语句就可以搞定楼主的需求

declare @sql varchar(max)
set @sql = ''
select @sql = @sql + ',' + quotename(产品)
from 产品生产物料采购计划
group by 产品
order by 产品
set @sql=stuff(@sql,1,1,'')
exec('
select 材料, 规格, 单位, 类别,
合计=(select sum(产量) from 产品生产物料采购计划),
'+@sql+'
from(
select 产品,材料='''', 规格='''', 单位='''', 类别=''产品产量'',产量
from 产品生产物料采购计划
)data
pivot(
sum(产量)
for 产品 in('+@sql+')
)p
union all
select a.材料, 规格, 单位, 类别,b.合计,'+@sql+'
from(
select *
from(
select 产品,材料, 规格, 单位, 类别=''计划消耗'',计划消耗
from 产品生产物料采购计划
)data
pivot(
sum(计划消耗)
for 产品 in('+@sql+')
)p
)a inner join(
select 材料, 合计=sum(计划消耗)
from 产品生产物料采购计划
group by 材料
)b on a.材料=b.材料
')
zjcxc 2006-02-22
  • 打赏
  • 举报
 回复
上面是union all 的拼法.

另, 楼主原来的while 循环有问题, 应该有begin end, 否则出来的列数是不对的.
楼主提到的"@i=6,@@ii=6 为什么出错。" 应该与此有关.
加载更多回复（13）
一次修复sql2000无法启动
再一次体会到搜索引擎的无比强大，更感谢的是那些无私分享技术的网友。 前言:开学第一次回实验室,辛辛苦苦搬好东西,装好电脑,正想回味一下上学期的"成果",结果发现右下角的sql服务器红色方块很刺眼. 第一步:启动.无效! 第二步:重启系统,无效! 火大,找到电脑上的sql2000,重装一次.无效! 这下无语了,只好求助于百度。开始搜索觉得毫无头绪，在技术博客，看到提及到管理工具，开始...
数据库帖子收集
这样的数据列表在存储过程中应该怎么样选择得到？ 请问造成SQL2000服务不能启动的原因有哪些？ sql server中有無類似于if 的函數,即像這樣select if(cancel=1,'cancel','') from sales 这样怎么返回呀！！！！记录集的返回。。 谁能跟我说说期初库存怎么样的一个业务逻辑!都要处理哪些内容!需要每月进...
sqlserver “置疑”解决办法
求助：我的sqlserver突然之间数据库msdb无法打开，企业管理器里面在msdb旁边显示“置疑”，导致数据库的作业调度用不了了，不知是设那么楼主jsys（雪狼）2004-05-08 14:10:40 在 MS-SQL Server / 应用实例 提问求助：我的sqlserver突然之间数据库msdb无法打开，企业管理器里面在msdb旁边显示“置疑”，导致数据库的作业调度用不了了，不知是
抱怨一声，离成功就又远离一米
这篇文章得来很偶然，但是看过之后，心里很温暖，也很他是，还有感动，复杂吗？如果你喜欢，读一下吧！------------------------------------------------------------------------------时光如梭，岁月如电。蓦然回首，匆匆十载弹指一挥间。     曾多次想寥以拙笔备忘人生，毕竟人的记忆会随着时间的推移而淡化。但一介草根之民写此
shiyan
show_ads_zone(21); #CHBig { width: 770px; clear: both; text-align: left; font-family: Tahoma, sans-serif; font-size: 12px; margin-top: auto; margin-rig
疑难问题

22,302

社区成员

121,734

社区内容

发帖
与我相关
我的任务
社区描述
MS-SQL Server 疑难问题
社区管理员
  • 疑难问题社区
  • 尘觉
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章