多表连接查询问题

fhb197999

各位老师，关于多表连接的SQL写法问题，要求都写在附件中，请帮帮忙，万分感激！

xiangbaoan

同一物料长代码里，有不同的进仓单价，这要怎么计算或是取舍?

xiangbaoan

Sub test() '这样?与正确与否无关，纯属猜想。
Dim Cn As Object, Sq$, sh As Worksheet, tb$, ta$, c%
Set Cn = CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
Sheets("查询结果").Activate
ActiveSheet.UsedRange.Offset(, 1).ClearContents
ta = "[查询结果$a1:a" & Cells(Rows.Count, 1).End(xlUp).Row & "]a"
c = 2
For Each sh In Worksheets
    With sh
        If .Name <> ActiveSheet.Name Then
            tb = "[" & .Name & "$A1:E" & .Cells(.Rows.Count, 1).End(xlUp).Row & "]b"
            Sq = "SELECT FIRST(b.进仓单价) FROM " & ta & " LEFT JOIN " & tb & " ON a.物料长代码=b.物料长代码 GROUP BY a.物料长代码"
            Cells(1, c) = Left(.Name, 2) & "进仓单价"
            Cells(2, c).CopyFromRecordset Cn.Execute(Sq)
            c = c + 1
        End If
    End With
Next
Cn.Close
Set Cn = Nothing
End Sub

fhb197999

xiangbaoan 发表于 2019-8-31 12:21
同一物料长代码里，有不同的进仓单价，这要怎么计算或是取舍?

xiangbaoan老师，谢谢，不好意思，我没有发现这个问题，这个问题可能是同一个月单价就发生了变化。对于同一物料长代码在同一个月中有不同的单价的情况，只要保留第一条记录就行。

fhb197999

xiangbaoan 发表于 2019-8-31 12:27
Sub test() '这样?与正确与否无关，纯属猜想。
Dim Cn As Object, Sq$, sh As Worksheet, tb$, ta$, c%
S ...

xiangbaoan老师，查询结果表的a列中的物料长代码我只是举例说明的列举了几个而已，实际上是需要从前面的三个表中提取出来全部的物料长代码才行，你再帮忙看看，谢谢！

xiangbaoan

fhb197999 发表于 2019-8-31 14:29
xiangbaoan老师，查询结果表的a列中的物料长代码我只是举例说明的列举了几个而已，实际上是需要从前面的 ...

………………

fhb197999

xiangbaoan 发表于 2019-9-1 06:24
………………

非常感谢老师！

a838469224

也是受教了！谢谢分享

小邋遢是我

我听说office大师可以跨表搜索