|
#2
dzt00012010-10-21 11:09
 程序代码：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% rs1=split("1,2,3,4,5,6,7,8",",") rs2=split("A,B,C,D,E,F,G,H",",") TotalCount=ubound(rs1) redim ArrayList(TotalCount,1) '定义二维数组 for i=0 to TotalCount ArrayList(i,0)=rs1(i) ArrayList(i,1)=rs2(i) next '你可以将数据记录先放入数组 RowSetup=5 '每行设定的列数 TotalRow=Abs(Int(TotalCount/RowSetup*(-1))) '计算分行的数量 response.write "<table border=""1"">" for i=1 to TotalRow response.write "<tr><td>行"&i&"</td>" for j=1 to RowSetup if (i-1)*RowSetup+j-1>TotalCount then response.write "<td> </td>" else response.write "<td>"&ArrayList((i-1)*RowSetup+j-1,0)&"</td>" end if next response.write "<tr><td>行"&i&"</td>" for j=1 to RowSetup if (i-1)*RowSetup+j-1>TotalCount then response.write "<td> </td>" else response.write "<td>"&ArrayList((i-1)*RowSetup+j-1,1)&"</td>" end if next next response.write "</table>" %> 上面是我以前写的一个代码，你可以参考一下 [ 本帖最后由 dzt0001 于 2010-10-21 11:11 编辑 ] |
表1
与户主关系 妻子 儿子 父亲 母亲 儿子
姓名 a b c d e
每个表格显示1列标题和5列数据 满了另起表格
表2
与户主关系 儿媳 女儿 没数据的留空
姓名 a b
该怎么实现 ？
下面我写了点代码 ，不知道怎么写下去
<table id=data width="800" border="1">
<tr>
<td>与户主关系</td>
<%j=5:response.write ( "<td>")
i=0
while not rs.eof
if (i mod j)=0 then
%>
<%=rs("关系")%>
<%response.write "</TD>"%>
<%'response.write ( "<td>")%>
<%
i=i+1
if (i mod j)=0 then response.write "</TR>"
%>
<tr>
<td>姓名</td>
<%j=5:response.write ( "<td>")
i=0
while not rs.eof
if (i mod j)=0 then
%>
<%=rs("cmname")%>
<%response.write "</TD>"%>
<%'response.write ( "<td>")%>
<%
i=i+1
if (i mod j)=0 then response.write "</TR>"
%>
<%response.write "<p></p>"%>
<%
end if
rs.movenext
wend
%>
</table>