dim avb as date
Dim lyp() As Stringlyp = ly.Split(",")Dim flt As StringFor Each lyd As String In lyp If flt > "" Then flt = flt & " Or "
End If flt = flt & "( 品番 = '" & lyd & "')" Next
tables("表A").filter = “时间 >= #" & avb.value & "# or " & flt
tables("表B").filter = flt
这样写对吗
我发觉 帅选不出来!