从“请选择货物”选择数据到“你已经选择的货物”
然后根据“你已经选择的货物”的内容选择合乎条件的记录
“请选择货物”的代码：
<SELECT ondblclick="SelMove('sposition','posttype',checkselect)" style="FONT-SIZE: 12px; WIDTH: 180px" multiple size="5" name="sposition" ID="Select2">
<%set rsm1=server.CreateObject("ADODB.Recordset"
'sqlm ="select * from material_master where left(material,4)=right('"&session("customer"
&"',4) "
sqlm ="select * from material_master "
rsm1.Open sqlm,conn,1,1
while rsm1.EOF=false %>
<option value=<%=rsm1.fields("material"
%> ><%=rsm1.fields("materialdesc"
%>
<%rsm1.MoveNext
wend
rsm1.Close%>
</SELECT>
“你已经选择的货物”的代码：
<SELECT ondblclick="SelMove('posttype')" style="FONT-SIZE: 12px; WIDTH: 180px" multiple size="7" name="posttype" ID="Select3">
</SELECT>
在最终页面，根据在选择框（posttype)的内容选择记录：
<%
set rsm=server.CreateObject("ADODB.Recordset"
sqlm ="select * from material_master where materialdesc in ('"&request("posttype"
&"')"
rsm.Open sqlm,conn,1,1
while rsm.EOF=false %>
<tr>
<td><%=rsm.fields("material"
%> ></td>
<Td><%=rsm.fields("materialdesc"
%></Td>
</tr>
<%rsm.MoveNext
wend
rsm.Close%>
结果没反应，是不是这段代码有错：
sqlm ="select * from material_master where materialdesc in ('"&request("posttype"
&"')"
