请问asp.net(VB)中如何用循环语句生成表格
来源:百度知道 编辑:UC知道 时间:2024/07/03 00:23:03
例如输入4行3列,单击生成表格,应自动生成如下表格:
1 2 3
4 5 6
7 8 9
10 11 12
并且表格单格元内居中填写序列数
谢谢!
<script language="vb" runat="server">
Dim i, j As Integer
Sub page_load()
message.Text = "<table width=60% border=2>"
For i = 1 To 3
message.Text &= "<tr>"
For j = 1 To 4
message.Text &= "<td>" & CStr((i - 1) * 4 + j) & "</td>"
Next
message.Text &= "</tr>"
Next
message.Text &= "</table>"
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" >
<title>无标题页</title>
1 2 3
4 5 6
7 8 9
10 11 12
并且表格单格元内居中填写序列数
谢谢!
<script language="vb" runat="server">
Dim i, j As Integer
Sub page_load()
message.Text = "<table width=60% border=2>"
For i = 1 To 3
message.Text &= "<tr>"
For j = 1 To 4
message.Text &= "<td>" & CStr((i - 1) * 4 + j) & "</td>"
Next
message.Text &= "</tr>"
Next
message.Text &= "</table>"
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" >
<title>无标题页</title>
Imports System.Text
....
....
....
GetTable(Byval pnRow As Integer,Byval pnCol As Integer) '参数:行数,列数
{
Dim sbTable As StringBuilder = New StringBuilder()
Dim nIndexR,nIndexC As Integer
Dim nValue As Integer
sbTable.Append("<table width=""100%"" cellspacing=""0"" cellpadding=""0"" border=""1"">")
For nIndexR=1 To pnRow '循环设置行
sbTable.Append("<tr>")
For nIndexC=1 To pnCol '循环设置列
sbTable.Append("<td align=""center"">" & nValue & "</td>")
nValue +=1 '累加
Next
sbTable.Append("</tr>")
Next
}
在网页需要现实表格的地方从工具箱拖入一个gridview(ID=gridview1)
在代码中(我在page_load)加载相应的程序代码,如下:
基本上就是用
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles M