工厂领料单，输入批号引用入库单中批号对应的信息

從薪⒈兲.

魂断蓝桥 发表于 2018-8-1 15:25
AF001        GG002        50*1040        M        20170706D22
AF002        GG002        50*1040        M        20170706D22
AF003        GG002        50*1040        M        201707 ...

不好意思，刚才的附件源数据错误。
源数据里面
AF001        GG002        50*1040        M        20170706D22
AF001        GG002        50*1040        M        20170706D22
AF001        GG002        50*1040        M        20170706D22
。。。
是这样的。
我想在表2里面，输入20170706D22，对应的一行只显示AF001        GG002        50*1040        M      
20170706D23，对应的一行只显示AF002        GG002        50*1040        M        
这些数据。谢谢您的帮助

魂断蓝桥

從薪⒈兲. 发表于 2018-8-1 15:32
不好意思，刚才的附件源数据错误。
源数据里面
AF001        GG002        50*1040        M        20 ...

调整一下顺序，先去重，再连接。

Sub 查询()
Dim cnn As Object
Dim sqa As String, r%, sql As String
Set cnn = CreateObject("ADODB.CONNECTION")
r = [g13].End(3).Row
If r = 4 Then Exit Sub
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
sqa = "select distinct * from  [sheet2$a1:e8] where 料号 is not null"
sql = "select 料号,品名,规格,单位 from [sheet1$g4:g" & r & "]  a  left join (" & sqa & ") b on a.批号=b.批号"
[a5:d12] = ""
[a5].CopyFromRecordset cnn.Execute(sql)
cnn.Close: Set cnn = Nothing
End Sub

從薪⒈兲.

魂断蓝桥 发表于 2018-8-1 15:49
调整一下顺序，先去重，再连接。

Sub 查询()

可以了，非常感谢您！谢谢，大哥

LMY123

同薄，left join

iwangyi

魂断蓝桥 发表于 2018-8-1 14:40
这个违法了数据库唯一性的原则啊。

如何知道是取第一条还是第二条呢？

蓝老师，像同一材料进价是随时间变化变动的，也是不唯一不变的，在计算材料成本时按最近三次的平均价计。

魂断蓝桥

iwangyi 发表于 2018-8-2 17:09
蓝老师，像同一材料进价是随时间变化变动的，也是不唯一不变的，在计算材料成本时按最近三次的平均价计。

也是可以的，比如先排序，然后取前三条记录，如果有附件我可以试一试。

從薪⒈兲.

魂断蓝桥 发表于 2018-8-3 08:48
也是可以的，比如先排序，然后取前三条记录，如果有附件我可以试一试。

蓝老师，附件内的说明，能否实现？

魂断蓝桥

從薪⒈兲. 发表于 2018-8-6 10:21
蓝老师，附件内的说明，能否实现？

没看懂，

发料对应领料表，领料表中出库日期 是 1，2，3
库存表中发料对应的日期都是1日？

從薪⒈兲.

魂断蓝桥 发表于 2018-8-6 10:46
没看懂，

发料对应领料表，领料表中出库日期 是 1，2，3

A列日期是，采购入料的日期；不需要根据日期。对应的批号和品名及规格入料、发料、良品退库、不良退库汇总

從薪⒈兲.

魂断蓝桥 发表于 2018-8-6 10:46
没看懂，

发料对应领料表，领料表中出库日期 是 1，2，3

A列的日期是采购入库日期，A、B、C、D列即是采购入库的信息，根据品名、规格、批号汇总采购入库数量、发料数量、良品退库数量、不良品退库数量