dim sql as string = "select 客户名称,(select max(日期) from 业务表 where 业务表.客户名称 = a.客户名称 and 业务类型=‘发货’ and 日期 <#" & dt2 & "#) as 最后发货日期,(select max(日期) from 业务表 where 业务表.客户名称 = a.客户名称 and 业务类型=‘收款’ and 日期 <#" & dt2 & "#) as 最后收款日期 from (select distinct 客户名称 from {业务表}) as a"