改成
drs= DataTables("包材数据库").Select("[包材大类]='纸箱' and [最大内尺寸_长] >= " & val(spl.Value) & " And [最大内尺寸_宽] >= " & val(spw.value) & " And [最大内尺寸_高] >= " & val(sph.value), "容积" )
如果还报错,弹出这个看看
msgbox("[包材大类]='纸箱' and [最大内尺寸_长] >= " & val(spl.Value) & " And [最大内尺寸_宽] >= " & val(spw.value) & " And [最大内尺寸_高] >= " & val(sph.value))
如果还报错,做个例子发上来测试。