台灣最大程式設計社群網站
線上人數
923
 
會員總數:245608
討論主題:189311
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 由左至右的表格排列
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
由左至右的表格排列
價值 : 0 QP  點閱數:597 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員
<%
TotalNumber = 17 ' 總數量
cols = 4 ' 每列數量
If TotalNumber Mod cols = 0 Then ' 計算列數
rows = TotalNumber / cols
Else
rows = TotalNumber \ cols + 1
End If
%>

<table border=0 width=500>
<% For i = 1 To rows %>
<tr>
<% For j = 1 To cols %>
<% id = (i - 1) * cols + j ' 計算目前數字 %>
<% If id > TotalNumber Then Exit For ' 如果大於總數量則跳出 %>
<td width=<% = 100 / cols %>%><% = id %></td>
<% Next %>
%>
</tr>
<% Next %>
</table>

--------------------------------------------------------------------------

一筆應是上下看的, 左右看的應是叫一欄. T1~T3 共三欄

<% Do Until rs.EOF %>
<tr>
<% For field = 1 To 3 %>
<td><% = rs("T" & field) %></td>
<% Next %>
</tr>
<% rs.MoveNext %>
<% Loop %>



<% Do Until rs.EOF %>
<tr>
<% For i = 0 To rs.Fields.Count - 1 %>
<td><% = rs(i) %></td>
<% Next %>
</tr>
<% rs.MoveNext %>
<% Loop %>


====================================================================

回應者: simon

只要在<tr> 換行判斷就可以囉.....

ex :
<table border="0" width="500" >
<tr> '(第一行)就是 1 2 3 4 的那一行
<%for i = 1 to 17%>
<% if i mod 4 = 1 then %> <tr> <%end if %> '當5,9,13,17,等數的時候會換行
<td width="25%"><%=j%></td>
<td width="25%"></td>
<td width="25%"></td>
<td width="25%"></td>
<% if i = 4 then %> </tr> <%end if %> '結束第一行
<% if i mod 4 = 1 then %> </tr> <%end if %> '當5,9,13,17,等數的時候會換行
<%next%>
</table>

本篇文章發表於2002-03-31 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.