sql合并表，from子句语法错误

ypkyh

Dim myData As New Data查询
Dim sql As String, sql1 As String, sql2 As String, sql3 As String, sql4 As String

    sql2 = "Select 客户,电话,sum(销售金额) as 合计 from chuku Where(付款)='" & Cells(1, "h") & "' group by 客户,电话"
    sql3 = "Select 客户,电话,sum(合计) from(" & sql2 & ") as 合计   group by 客户,电话"

   sql = "Select 客户,电话,欠款 as 金额 from chuku Where(付款)='" & Cells(1, "h") & "' group by 客户,电话,欠款"
   sql1 = "Select 客户,电话,sum(金额) from(" & sql & ") as 金额   group by 客户,电话"
    sql4 = "select 客户,电话,sum(合计),(sum(合计)-sum(金额)) as 已付,SUM(金额) from (" & sql3 & ") as 合计 left join (" & sql1 & ") as 金额  group by 客户,电话 "
   myData.执行筛选 sql4, "b3"
错误出在sql4里，”from子句语法错误”

zmj9151

是不是没有on 后面的连接条件

ypkyh

zmj9151 发表于 2018-10-4 13:08
是不是没有on 后面的连接条件

把group by换成on显示不支持连接表达式

ypkyh

ypkyh 发表于 2018-10-4 14:37
把group by换成on显示不支持连接表达式

就是差个连接条件，该怎么连？谢谢

zmj9151

sql1 = "select id,num,spec,qua from orderDetail  where len(flag)<>4  and num='" & num & "'"
sql2 = "select num,spec,sum(qua) as qua from delivery group by num,spec "

sql = "select a.id,a.num,a.spec,a.qua,iif(isnull(b.qua),0,b.qua) as c ,a.qua-c from (" & sql1 & ") as a" _
& " left join (" & sql2 & ") as b " _
& " on b.num=a.num and b.spec=a.spec "
sql1和sql2中使用group by ,你参考一下

ypkyh

zmj9151 发表于 2018-10-4 16:59
sql1 = "select id,num,spec,qua from orderDetail  where len(flag)4  and num='" & num & "'"
sql2 = "s ...

谢谢，搞定