主题：编辑长代码时的困扰

这个不是我能决定的

其实这样写也行：
 
Dim s As String
s = "; With cte As ("  & _
    " Select a.出库单号, 客户, b.产品, 最后订购日期= 日期  ,订购数量=数量"  & _
    " from 出库 a , 出库明细 b " & _
    " where  a.出库单号=b.出库单号) " & _
    " Select * from cte t " & _
    " where not exists(Select 1 from cte where 客户=t.客户 And 产品=t.产品 And 最后订购日期>t.最后订购日期)"