![]() |
#2
yms1232010-04-20 21:06
|
原先代码如下,能显示符合条件的设备编号,部门编号,数量
<%
strSQL = "SELECT * FROM ml_Apply WHERE IsAudi = '通过审核' ORDER BY DeptID Desc"
rsResult.Open strSQL,strConn,adOpenKeyset,adLockReadOnly
If Not rsResult.Eof And Not rsResult.Bof Then
DeptID = rsResult("DeptID")
MachineryID = rsResult("MachineryID")
number = rsResult("number")
%>
<tr bgcolor="#FFFFFF">
<td width="20%" align="left"><div align="left"><% =DeptID%></div></td>
<td width="30%" align="left"><div align="left"><% =MachineryID%></div></td>
<td width="30%" align="left"><div align="left"><% =number%></div></td>
</tr>
<%
rsResult.MoveNext
If rsResult.EOF Then Exit For
Next
End If
rsResult.Close
Set rsResult = Nothing
%>
后来改的的代码
<%
strSQL = "SELECT ml_Dept.DeptName, ml_Machinery.MachineryName, ml_Apply.Number
FROM (ml_Apply INNER JOIN ml_Machinery ON ml_Apply.MachineryID = ml_Machinery.MachineryID) INNER JOIN ml_Dept ON ml_Apply.DeptID = ml_Dept.DeptID
WHERE (((ml_Apply.IsAudi)="通过审核"))"
rsResult.Open strSQL,strConn,adOpenKeyset,adLockReadOnly
If Not rsResult.Eof And Not rsResult.Bof Then
DeptID = rsResult("ml_Dept.DeptID")
MachineryID = rsResult("ml_Machinery.MachineryID")
number = rsResult("ml_Apply.number")
%>
