帮忙改一句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 "