[已解决]用SQL语句合并表的问题？？

快樂學習 · 发表于 2011-9-14 13:00

各位大侠们，帮我看看两张表合并，用SQL语句怎么写？？

具体要求见附件！！

合并汇总.rar (13.6 KB, 下载次数: 22)

mxg825 · 发表于 2011-9-14 13:11

进价售价有没有可能不一样？

快樂學習 · 发表于 2011-9-14 13:13

本帖最后由快樂學習于 2011-9-14 13:20 编辑

回复 mxg825 的帖子

同一编号和名称的进价和售价是固定的！

無心 · 发表于 2011-9-14 13:40

试试这个

select A.编号,A.名称,sum(A.入库数量) as 入库数量,avg(A.进价) as 进价,sum(A.入库金额) as 入库金额,sum(B.出库数量) as 出库数量,avg(B.售价) as 售价,sum(B.出库金额) as 出库金额 from [表1$] A left outer join [表2$] B on A.编号=B.编号 and A.名称=B.名称 group by A.编号,A.名称

复制代码

mxg825 · 发表于 2011-9-14 13:44

本帖最后由 mxg825 于 2011-9-14 14:57 编辑

回复快樂學習的帖子

Sub 汇总()
Dim cn As New ADODB.Connection, t As Single
Dim sq1 As String, sq2 As String, sq3 As String
t = Timer
Range("A2:I" & Range("A65536").End(xlUp).Row + 1).ClearContents
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
sq1 = "select 编号,名称,入库数量,入库金额,0 as 出库数量,0 as 出库金额 from [表1$]"
sq2 = "select 编号,名称,0 AS 入库数量,0 AS 入库金额,出库数量,出库金额 from [表2$]"
sq3 = "select 编号,名称,SUM(入库数量),SUM(入库金额)/SUM(入库数量),SUM(入库金额),SUM(出库数量),SUM(出库金额)/SUM(出库数量),SUM(出库金额),SUM(入库数量)-SUM(出库数量) " & _
"from ( " & sq1 & " UNION ALL " & sq2 & ") GROUP BY 编号,名称"
Sheets("汇总").Range("A2").CopyFromRecordset cn.Execute(sq3)
cn.Close
Set cn = Nothing
MsgBox "共用时：" & (Timer - t) * 1000 & "毫秒"
End Sub

复制代码

进价= 总进货金额/总进货数量
售价= 总出货金额/总出货数量
最后加了一列结存数量！
使用前，要引用 Microsoft ActiveX Data Objects 2.5 Library (2.5 版本吧其他也行)

mxg825 · 发表于 2011-9-14 13:52

無心发表于 2011-9-14 13:40
试试这个

你的代码有错。。。。
如第一个数量都翻倍了！

快樂學習 · 发表于 2011-9-14 14:38

回复 mxg825 的帖子

VBA不懂，把代码直接复制在模块里怎么运行不了，请老师指点下

skyline_zwl · 发表于 2011-9-14 14:39

不明白，还没到这个阶段

mxg825 · 发表于 2011-9-14 14:43

你是不是没有引用
引用 Microsoft ActiveX Data Objects 2.5 Library (2.5 版本号其他版本也行)

快樂學習 · 发表于 2011-9-14 15:07

回复 mxg825 的帖子

呵呵，找到了，谢谢！！

		自动登录	找回密码
密码			注册