Sql数据源的函数和access的是不同的。
Tables("PR查询_PRquery").Fill("Select 申请单号, case when 领用数量 is null then 0 else 领用数量 end) as 出库数量 from prsub","wsdcsql",True)
或者
Tables("PR查询_PRquery").Fill("Select 申请单号, isnull(领用数量, 0) as 出库数量 from prsub","wsdcsql",True)