如果是sqlserver数据库,改成
Dim sql = "select 设备名称,单位,sum(当月租金) as 当月租金,sum(租金累计) as 租金累计 from ( Select 设备名称,产权单位 as 单位,sum(isnull(当月租金,0)) As 当月租金,sum(isnull(租金累计,0)) As 租金累计 from {表A} group by 设备名称,产权单位 union all Select 设备名称,使用单位 As 单位,sum(isnull(当月租金,0)) * -1 As 当月租金,sum(isnull(租金累计,0)) * -1 As 租金累计 from {表A} where 使用单位 <> '设备仓库' group by 设备名称,使用单位) as a group by 设备名称,单位"