drs= DataTables("包材数据库").Select("[包材大类]='纸箱' and [最大内尺寸_长] >= " & spl.Value & " And [最大内尺寸_宽] >= " & spw.value & " And [最大内尺寸_高] >= " & sph.value, "容积" )
If drs.count > 1 Then
dr1=drs(0)
dr2=drs(1)
zx1.text = dr1("包材编码")
zx1l.value = dr1("最大内尺寸_长")
zx1w.value = dr1("最大内尺寸_宽")
zx1h.value = dr1("最大内尺寸_高")
zx1v.value = spl.value * spw.value * sph.value / dr1("最大内尺寸_长")/ dr1("最大内尺寸_宽")/dr1("最大内尺寸_高")
End If