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

從薪⒈兲.

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

從薪⒈兲.

请大神相助，谢谢

魂断蓝桥

Sub 查询()
Dim cnn As Object
Dim Sql As String, r%
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
Sql = "select 料号,品名,规格,单位 from [sheet1$g4:g" & r & "]  a  left join  [sheet2$a1:e] b on a.批号=b.批号"
[a5:d12] = ""
[a5].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub

这个用字典更简单一些。

從薪⒈兲.

魂断蓝桥 发表于 2018-8-1 14:19
Sub 查询()
Dim cnn As Object
Dim Sql As String, r%

谢谢您，有一个问题，表2中的批号有2个，对应的信息是一样的。按照上面的代码会出现两条信息，如何只让显示一行信息

魂断蓝桥

從薪⒈兲. 发表于 2018-8-1 14:24
谢谢您，有一个问题，表2中的批号有2个，对应的信息是一样的。按照上面的代码会出现两条信息，如何只让显 ...

这个违法了数据库唯一性的原则啊。

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

從薪⒈兲.

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

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

嗯  我也做的数据库，这一点不知道怎么解决。批号和前面的信息是一样的，后面的数量和重量是不一样的。所以不提取数量和重量。一个批号对应的只或取批号的名称信息

魂断蓝桥

從薪⒈兲. 发表于 2018-8-1 14:43
嗯  我也做的数据库，这一点不知道怎么解决。批号和前面的信息是一样的，后面的数量和重量是不一样的。所 ...

提取后，DISTINCT 清除重复。
比如这样

Sql = "select 料号,品名,规格,单位 from [sheet1$g4:g" & r & "]  a  left join  [sheet2$a1:e] b on a.批号=b.批号"
Sql = "select distinct * from (" & Sql & ")"

從薪⒈兲.

魂断蓝桥 发表于 2018-8-1 15:01
提取后，DISTINCT 清除重复。
比如这样

我在上传个附件给您举例

從薪⒈兲.

新上传附件，加DISTINCT 清除重复就不对了。原本想用INDEX+SMALL+IF太卡

魂断蓝桥

從薪⒈兲. 发表于 2018-8-1 15:07
新上传附件，加DISTINCT 清除重复就不对了。原本想用INDEX+SMALL+IF太卡

AF001        GG002        50*1040        M        20170706D22
AF002        GG002        50*1040        M        20170706D22
AF003        GG002        50*1040        M        20170706D22


这些都是d22需要返回的内容，你需要返回结果？