Tables("报刊订阅数据表").filter="报送单位 = '" & dw.Value & "' And 订户名称 = '" & mc.Value & "' And 订户地址 like '%" & dz.Value & "%' and 份数 like '%" & fs.Value & "%'"这样改下试一下