[已解决]查询功能

chart888

爱很简单 发表于 2017-6-17 16:34
恩恩

你意思只要能匹配上一个就要填写 “”“真的”？？？

爱很简单

chart888 发表于 2017-6-17 16:27
条件为1,2,3,4时也要继续执行的话 那你的查询还有什么意义呢 不管1234还是12345是不是都能匹配上 后面全 ...

麻烦您看一下说明，这个说明就是和那个表对应的··  比如数据库中D-H列为1,2,3,4,5   我查询的时候，条件为1,2也可以查到，为1,3也可以查询到，如果为1,6，则不能查都，其中1,2,6都是有对应关系的：数据查询AL列=数据库中的D、数据查询AM列=数据库中的E、数据查询AO列=数据库中的F、数据查询AP列=数据库中的G、数据查询AQ列=数据库中的H···············不知这样说清楚了没？

爱很简单

chart888 发表于 2017-6-17 16:37
你意思只要能匹配上一个就要填写 “”“真的”？？？

对·· 对··  就是这个意思（只要对应关系能匹配上是“真的”）··   因为我的查询条件有很多很多···  所有如果写ELSEIF的话会写很多很多····

chart888

爱很简单 发表于 2017-6-17 16:38
麻烦您看一下说明，这个说明就是和那个表对应的··  比如数据库中D-H列为1,2,3,4,5   我查询的时候，条 ...

是不是可以怎么理解
5个条件中只要有一个能匹配上
那么后面的就为  真

爱很简单

chart888 发表于 2017-6-17 16:41
是不是可以怎么理解
5个条件中只要有一个能匹配上
那么后面的就为  真

不···比如第一张表的条件为1,3 ，则在第二张表中必须要有1,3 并且这两个都必须对应才为“真”，如果只有1个条件匹配则为空···

爱很简单

chart888 发表于 2017-6-17 16:41
是不是可以怎么理解
5个条件中只要有一个能匹配上
那么后面的就为  真

如果有5个条件，则五个条件都全部匹配后才能为“真”

爱很简单

chart888 发表于 2017-6-17 16:41
是不是可以怎么理解
5个条件中只要有一个能匹配上
那么后面的就为  真

这个是不是实现起来很难呀？

chart888

1. 
   
2. Private Sub CommandButton1_Click()
   
3. Dim arr, brr, i&, k&
   
4. arr = Worksheets("数据库").Range("D2:H" & Worksheets("数据库").Cells(Rows.Count, 4).End(3).Row) '
   
5. brr = Worksheets("数据查询").Range("AL6:AP6")
   
6. For i = 1 To UBound(arr)
   
7.     For k = 1 To 5
   
8.         If brr(1, k) <> "" Then
   
9.             If brr(1, k) = arr(i, k) Then
   
10.                 Worksheets("数据库").Cells(i + 1, 19) = "真的"
    
11.             Else
    
12.                 Worksheets("数据库").Cells(i + 1, 19) = ""
    
13.                 GoTo AA
    
14.             End If
    
15.         End If
    
16.     Next
    
17. AA:
    
18. Next
    
19. End Sub

复制代码

爱很简单

chart888 发表于 2017-6-17 16:59

有点不对··

chart888

爱很简单 发表于 2017-6-17 17:10
有点不对··

你再重新复制下代码
我刚更新了下