想实现多对多的查询返回

nancy4929

lsc900707 发表于 2018-7-16 17:20
写了一个字典的匹配过程，自己根据要求修改成工作表事件吧。

谢谢版主大大，我继续好好学习，争取能够天天向上！

zopey

nancy4929 发表于 2018-7-16 17:36
谢谢大大，我按这个思路写的时候就一直offset的下标错误，现在可以继续学习了~

第2列 下拉菜单”A，B，C“是 手动添加 、复制的 ，没有用代码生成。

nancy4929

zopey 发表于 2018-7-16 17:46
第2列 下拉菜单”A，B，C“是 手动添加 、复制的 ，没有用代码生成。

对，我刚发现，所以这样就没办法动态添加了，也没办法改其他的了，想问下是哪里冲突了呢？

魂断蓝桥

sql肯定是可以实现的。不过这种运用事件的做法，sql效率不高。

写个你可以参考一下。

Sub 单条查询()
Dim cnn As Object
Dim Sql As String, i, s$
Set cnn = CreateObject("ADODB.CONNECTION")
For i = 2 To 4
    s = s & Cells(1, i) & "='" & Cells(3, i) & "' AND "
Next
s = Left(s, Len(s) - 4)
cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select 型号,产地,订货周期,单位 from [数据区$A1:G]  WHERE " & s
[E3:H3] = ""
[E3].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub


Sub 批量查询()
Dim cnn As Object
Dim Sql As String, i%, s$
Set cnn = CreateObject("ADODB.CONNECTION")
i = [b9999].End(3).Row
cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select B.型号,B.产地,B.订货周期,B.单位 from [查找区$b1:G" & i & "] A left join [数据区$A1:G] B ON A.类型=B.类型 AND A.规格=B.规格 AND A.品牌=B.品牌 where B.型号 is not null"
[E3:H6] = ""
[E3].CopyFromRecordset cnn.Execute(Sql)
cnn.Close: Set cnn = Nothing
End Sub

nancy4929

魂断蓝桥 发表于 2018-7-17 10:30
sql肯定是可以实现的。不过这种运用事件的做法，sql效率不高。

写个你可以参考一下。

谢谢大大，主要是现在在学习，所以各种方式方法都想学学看。

另外我想问下，SQL和字典分别在什么情况下运算速度会比较占优势呢

魂断蓝桥

nancy4929 发表于 2018-7-17 10:46
谢谢大大，主要是现在在学习，所以各种方式方法都想学学看。

另外我想问下，SQL和字典分别在什么情况 ...

字典的优势大，如果你使用数据库。比如access 那就必须用sql了

sql代码比较简单。

nancy4929

魂断蓝桥 发表于 2018-7-17 13:54
字典的优势大，如果你使用数据库。比如access 那就必须用sql了

sql代码比较简单。

好的，谢谢