求助，多条件查询代码，

sbdxitx

因工作需要，我编了一个多条件查询代码，可是运行能通过，但是没有结果出来，让我很是郁闷，不知错在哪儿了，请各位大神救急帮忙修改一下，谢谢！

opiona

resize 前面是 一个单元格，不是区域

sbdxitx

麻烦侠圣了，我试过了，还是不行。烦请大侠帮忙测试运行一下。我看可能是条件上出了问题。我的一个查询条件是根据D2（客户名称）查询K2（2018年4月1日）至M2(2018年5月10日）产生的多个产品订单记录，二个查询条伯是根据G2（产品名称）查询K2（2018年4月1日）至M2(2018年5月10日）产生的某一产品的订单记录，三是根据D2（客户名称）和G2（产品名称）查询K2（2018年4月1日）至M2(2018年5月10日）产生的单个客户所下的某产品订单记录。因此，我怀疑是我给出的条件对比上出了问题。因为我改了您给的这个地方，查询出来的记录是把提取整理出来的表格数据，从A1全数列出。没有产生条件对比查询的作用。

sbdxitx

请大神们帮忙修改一下代码可以吗？

opiona

sbdxitx

这个只是提取整理表格的表头。不是以条件查询的结果。你可以查询试试

opiona

1.     Set SH0 = Worksheets("订单总表")
   
2.     Set SH1 = Worksheets("订单查询")
   
3.    
   
4.    
   
5.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
   
6.     StrSQL = ""
   
7.     StrSQL = StrSQL & "SELECT [下单日期],[客户名称序列],[产品名称序列],[订单编号],[下单日期1]"
   
8.     StrSQL = StrSQL & ",[客户名称],[客户_产品名称],[我司_产品名称],[原料名称],[颜色],[色号]"
   
9.     StrSQL = StrSQL & ",[订单_数量],[订单_单位],[单件_数量],[装箱_单位],[装箱_件数],[件数_单位]"
   
10.     StrSQL = StrSQL & ",[零数],[零数_单位],[工艺要求],[交货日期],[单价_（元）],[订单货款_金额_（元）],[备注]"
    
11. 
    
12.     StrSQL = StrSQL & " FROM [" & SH0.Name & "$A4:IT]"
    
13.     StrSQL = StrSQL & " WHERE 1=1"
    
14.     If Len(SH1.Range("D2").Value) > 0 Then StrSQL = StrSQL & " AND [客户名称]='" & SH1.Range("D2").Value & "'"
    
15.     If Len(SH1.Range("G2").Value) > 0 Then StrSQL = StrSQL & " AND [我司_产品名称]='" & SH1.Range("G2").Value & "'"
    
16.     If Len(SH1.Range("K2").Value) > 0 Then StrSQL = StrSQL & " AND [下单日期]>=#" & SH1.Range("K2").Value & "#"
    
17.     If Len(SH1.Range("M2").Value) > 0 Then StrSQL = StrSQL & " AND [下单日期]<=#" & SH1.Range("M2").Value & "#"
    
18.    
    
19.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, True)
    
20.     SH1.Range("A5:Z1048576").ClearContents
    
21.     SH1.Range("B5").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR

复制代码

sbdxitx

谢谢大侠，代码我运行了一下， SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, True)，这一句出错了，显示函数未定义，麻烦您再帮忙修改一下好吗，谢谢！