帮忙改一句vb代码

lbsxj 2004-09-07 03:27:14
帮忙把下面这句代码在功能不变的基础上改得简单一些,代码很长,其实就是select r.ryxm,k.wcrq,k.gzr1 as a,k.wcr1 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh 这一句变了点后不断union


viewstate("style") = "select * from (select r.ryxm,k.wcrq,k.gzr1 as a,k.wcr1 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.gzr2 as a,k.wcr2 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.gzr3 as a,k.wcr3 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.gzr4 as a,k.wcr4 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.gzr5 as a,k.wcr5 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.gzr6 as a,k.wcr6 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.gzr7 as a,k.wcr7 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.gzr8 as a,k.wcr8 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.gzr9 as a,k.wcr9 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.gzr10 as a,k.wcr10 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.qtr1 as a,k.qtw1 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.qtr2 as a,k.qtw2 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.qtr3 as a,k.qtw3 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.qtr4 as a,k.qtw4 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh union select r.ryxm,k.wcrq,k.qtr5 as a,k.qtw5 as b from ryqkb as r,khrjb as k) as bb where not a is null "
...全文
102 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
LiloZhu 2004-09-07
  • 打赏
  • 举报
回复
同意樓上,使用臨時表....
exing 2004-09-07
  • 打赏
  • 举报
回复
对,应该写成存储过程
并且不应该用这样的写法,而尽量写临时表,结构上也会更加清晰
xiaomaoy 2004-09-07
  • 打赏
  • 举报
回复
建议写存储过程,执行效率会高一些。
dofly 2004-09-07
  • 打赏
  • 举报
回复
Create Procedure Usp_Test

As

select * from (
select r.ryxm,k.wcrq,k.gzr1 as a,k.wcr1 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.gzr2 as a,k.wcr2 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.gzr3 as a,k.wcr3 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.gzr4 as a,k.wcr4 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.gzr5 as a,k.wcr5 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.gzr6 as a,k.wcr6 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.gzr7 as a,k.wcr7 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.gzr8 as a,k.wcr8 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.gzr9 as a,k.wcr9 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.gzr10 as a,k.wcr10 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.qtr1 as a,k.qtw1 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.qtr2 as a,k.qtw2 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.qtr3 as a,k.qtw3 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.qtr4 as a,k.qtw4 as b from ryqkb as r,khrjb as k where r.rybh = k.rybh
union
select r.ryxm,k.wcrq,k.qtr5 as a,k.qtw5 as b from ryqkb as r,khrjb as k)
as bb
where not a is null
dofly 2004-09-07
  • 打赏
  • 举报
回复
这么长为什么不写为存储过程呢?
lbsxj 2004-09-07
  • 打赏
  • 举报
回复
up
lbsxj 2004-09-07
  • 打赏
  • 举报
回复
引用:“对,应该写成存储过程
并且不应该用这样的写法,而尽量写临时表,结构上也会更加清晰”
帮忙改一改,加了20分
lbsxj 2004-09-07
  • 打赏
  • 举报
回复
引用:“对,应该写成存储过程
并且不应该用这样的写法,而尽量写临时表,结构上也会更加清晰”
帮忙改一改

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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