Dim q As new QueryBuilder
q.TableName = "应发明细"
q.SelectString = "select b.*, iif(合同数量 is null,0,合同数量) + iif(上期结存 is null, 0, 上期结存) - iif(发货数量 is null, 0, 发货数量) as 应发数量 fr om (Select {合同一览表}.客户名称,{合同明细表}.产品名称,规格牌号, sum({合同明细表}.数量) as 合同数量, (select sum(数量) fr om {发货明细表} where {发货明细表}.客户名称 = {合同一览表}.客户名称 and {发货明细表}.产品名称 = {合同明细表}.产品名称 and {发货明细表}.规格 或牌号 = {合同明细表}.规格牌号 and year(发货日期)=" & Date.today.year & ") as 发货数量, (select sum(数量) fr om {历史结余明细} where 年份 = " & Date.today.year-1 & " And {历史结余明细}.客户名称 = {合同一览表}.客户名称 And {历史结余明细}.品名 = {合同明细表}.产品名称 And {合同明细表}.规格牌号 = {历史结余明细}.规格或牌号) As 上期结存 Fr om ({合同明细表} Inner JOIN {合同一览表} ON {合同一览表}.[合同编号] = {合同明细表}.[合同编号]) Inner JOIN {客户一览表} ON {客户一览表}.[客户名称] = {合同一览表}.[客户名称] where {客户一览表}.客户名称= \'" & Tables("客户一览表").current("客户名称") & "\' And year(合同日期) = " & Date.today.year & " group by {合同明细表}.产品名称,规格牌号,{合同一览表}.客户名称) As b"
q.Build
forms("应发明细窗口").open  

红色部分好像没有起作用？？？