查询两个工作代码运行时错误

sdgyc

两个条件查询两个工作表.rar (13.37 KB, 下载次数: 8)

2017-1-23 20:24 上传

点击文件名下载附件
附件

请求老师帮忙,两个条件查询两个工作表，代码运行时错误
  当B2填写了日期,D2填写送货单位时查询数据库单据类型的"入库"商品名称、数量和“编辑供货商”工作表的生产单位（地址）、营业执照号、许可证。并提取B2月、日到B5和C5
多谢！！！

凌空一羽

4dfsa.zip (21.97 KB, 下载次数: 5)

2017-1-23 21:09 上传

点击文件名下载附件

№▁▃风筝﹋

1. Sub kk()
   
2. Set d = CreateObject("scripting.dictionary")
   
3.     brr = Sheets("数据库").UsedRange
   
4.     crr = Sheets("编辑供货商").UsedRange
   
5.     drr = Sheets("编辑供货商").Range("g1:g" & Sheets("编辑供货商").Range("g" & Rows.Count).End(xlUp).Row)
   
6.     ReDim arr(1 To UBound(brr), 1 To UBound(brr, 2))
   
7.     Sheets("台帐").Activate
   
8.     t = [d2]
   
9.     sr = [b2] & t & "入库"
   
10.     d(sr) = ""
    
11.     For i = 3 To UBound(brr)
    
12.         sr1 = brr(i, 3) & brr(i, 7) & brr(i, 2)
    
13.         If d.Exists(sr1) = False Then
    
14.             m = m + 1
    
15.             arr(m, 1) = Month([b2]): arr(m, 2) = Day([b2]) '''''''''''''''''数据库部分
    
16.             arr(m, 3) = brr(i, 12): arr(m, 6) = brr(i, 16)
    
17.             arr(m, 4) = brr(i, 13): arr(m, 5) = brr(i, 14)
    
18.             
    
19.             
    
20.         
    
21.             x = Application.Match(t, drr, 0)
    
22.             arr(m, 7) = crr(x, 1): arr(m, 9) = crr(x, 3) ''''''''''''''''''编辑部分
    
23.             arr(m, 10) = crr(x, 4): arr(m, 11) = crr(x, 5)
    
24.             arr(m, 12) = crr(x, 6)
    
25.         
    
26.         End If
    
27.     Next
    
28.    
    
29.    
    
30.     Range("b5:P" & Range("b" & Rows.Count).End(xlUp).Row) = ""
    
31.     Range("b5").Resize(m, 13) = arr
    
32. End Sub
    

复制代码

№▁▃风筝﹋

上面的不对，这里才是对的，你的数据库里面的“入库 ”多了个空格，所以两边对比不出来

1. Sub kk()
   
2. Set d = CreateObject("scripting.dictionary")
   
3.     brr = Sheets("数据库").UsedRange
   
4.     crr = Sheets("编辑供货商").UsedRange
   
5.     drr = Sheets("编辑供货商").Range("g1:g" & Sheets("编辑供货商").Range("g" & Rows.Count).End(xlUp).Row)
   
6.     ReDim arr(1 To UBound(brr), 1 To UBound(brr, 2))
   
7.     Sheets("台帐").Activate
   
8.     t = [d2]
   
9.     sr = [b2] & t & "入库"
   
10.     d(sr) = ""
    
11.     For i = 3 To UBound(brr)
    
12.         sr1 = brr(i, 3) & brr(i, 7) & brr(i, 2)
    
13.         If d.Exists(sr1) Then
    
14.             m = m + 1
    
15.             arr(m, 1) = Month([b2]): arr(m, 2) = Day([b2]) '''''''''''''''''数据库部分
    
16.             arr(m, 3) = brr(i, 12): arr(m, 6) = brr(i, 16)
    
17.             arr(m, 4) = brr(i, 13): arr(m, 5) = brr(i, 14)
    
18.             
    
19.             
    
20.         
    
21.             x = Application.Match(t, drr, 0)
    
22.             arr(m, 7) = crr(x, 1): arr(m, 9) = crr(x, 3) ''''''''''''''''''编辑部分
    
23.             arr(m, 10) = crr(x, 4): arr(m, 11) = crr(x, 5)
    
24.             arr(m, 12) = crr(x, 6)
    
25.         
    
26.         End If
    
27.     Next
    
28.    
    
29.    
    
30.     Range("b5:P" & Range("b" & Rows.Count).End(xlUp).Row) = ""
    
31.     Range("b5").Resize(m, 13) = arr
    
32. End Sub

复制代码

sdgyc

№▁▃风筝﹋ 发表于 2017-1-23 21:27
上面的不对，这里才是对的，你的数据库里面的“入库 ”多了个空格，所以两边对比不出来

多谢老师！！！