Sql = "select dc_ykfx.dkhmc,dc_khxx.dkhmc as ddkhmc,round(sum(dsl),2) as dsl" Sql = Sql & ",(case when sum(dsl)=0 then 0 else round(sum(djjgje)/sum(dsl),2) end) as djjgdj" Sql = Sql & " group by dc_ykfx.dkhmc,dc_khxx.dkhmc" Sql = Sql & " order by ddkhmc,dc_ykfx.dkhmc"不是不不支持 sum(dsl)=0 上面的就不通过 说=的语法不对
不是from的问题,from我已加了,忘记贴了 Sql = "select dc_ykfx.dkhmc,dc_khxx.dkhmc as ddkhmc,round(sum(dsl),2) as dsl" Sql = Sql & ",(case when sum(dsl)=0 then 0 else round(sum(djjgje)/sum(dsl),2) end) as djjgdj" Sql = Sql & " from dc_ykfx,dc_khxx" Sql = Sql & " where dkjrq>=" & sqlstr(Str_Kjrq_Where1) & " and dkjrq<=" & sqlstr(Str_Kjrq_Where2) Sql = Sql & " and dc_khxx.dbm= left(dc_ykfx.dkhbm,2)" Sql = Sql & " group by dc_ykfx.dkhmc,dc_khxx.dkhmc" Sql = Sql & " order by ddkhmc,dc_ykfx.dkhmc" Sql = Sql & " group by dc_ykfx.dkhmc,dc_khxx.dkhmc" Sql = Sql & " order by ddkhmc,dc_ykfx.dkhmc"
sql server不支持上面你讲的语法呀
如不行,把完整SQL贴出给你改改
Sql = Sql & ",(case when sum(dsl)=0 then 0 else round(sum(djjgje)/sum(dsl),2) end) as djjgdj"
Sql = Sql & " group by dc_ykfx.dkhmc,dc_khxx.dkhmc"
Sql = Sql & " order by ddkhmc,dc_ykfx.dkhmc"不是不不支持 sum(dsl)=0
上面的就不通过
说=的语法不对
Sql = "select dc_ykfx.dkhmc,dc_khxx.dkhmc as ddkhmc,round(sum(dsl),2) as dsl"
Sql = Sql & ",(case when sum(dsl)=0 then 0 else round(sum(djjgje)/sum(dsl),2) end) as djjgdj"
Sql = Sql & " from dc_ykfx,dc_khxx"
Sql = Sql & " where dkjrq>=" & sqlstr(Str_Kjrq_Where1) & " and dkjrq<=" & sqlstr(Str_Kjrq_Where2)
Sql = Sql & " and dc_khxx.dbm= left(dc_ykfx.dkhbm,2)"
Sql = Sql & " group by dc_ykfx.dkhmc,dc_khxx.dkhmc"
Sql = Sql & " order by ddkhmc,dc_ykfx.dkhmc"
Sql = Sql & " group by dc_ykfx.dkhmc,dc_khxx.dkhmc"
Sql = Sql & " order by ddkhmc,dc_ykfx.dkhmc"