多条件取值求助

ykcbf1100

模糊查询完成。

条件再多几个也没事，只要改d值和tj数组就行了。
可以多选。

fzxba

参与仅供测试.rar (44.36 KB, 下载次数: 13)

2023-4-28 11:58 上传

点击文件名下载附件

ykcbf1100

根据楼主的要求，总表数据追加且不能重复，更新代码。

天边2021

ykcbf1100 发表于 2023-4-28 13:31
根据楼主的要求，总表数据追加且不能重复，更新代码。

    非常感谢！

天边2021

fzxba 发表于 2023-4-28 11:58

   非常感谢

Hontyu

fzxba 发表于 2023-4-28 11:58

Replace(ar(1, 2), "/", "','") 老师这个起什么作用，新手没看懂

fzxba

Hontyu 发表于 2023-4-28 14:41
Replace(ar(1, 2), "/", "','") 老师这个起什么作用，新手没看懂

Hontyu

这个地方我改了一下，总表只有第一行的时候，运行会出错

With Worksheets(1)
    ar = .Range("A1").CurrentRegion.Value
    iRow = .Cells(.Rows.Count, 1).End(3).Row
   
    If iRow > 1 Then
      For i = 2 To UBound(ar)
        If Len(ar(i, 1)) Then If Not Dict.Exists(ar(i, 1)) Then Dict.Add ar(i, 1), vbNullString
      Next i
      SQL = SQL & strWhere
      SQL = "SELECT * FROM (" & SQL & ") WHERE 入库单号 NOT IN ('" & Join(Dict.Keys, "','") & "')"
    Else
      SQL = SQL & strWhere
    End If
   
    .Range("A" & Rows.Count).End(3).Offset(1).CopyFromRecordset Conn.Execute(SQL)
    .Activate
  End With

fzxba

Hontyu 发表于 2023-4-28 15:18
这个地方我改了一下，总表只有第一行的时候，运行会出错

With Worksheets(1)

我也改一下.rar (45.44 KB, 下载次数: 4)

2023-4-28 18:16 上传

点击文件名下载附件

天边2021

fzxba 发表于 2023-4-28 15:02

          可以啊，非常感谢