横向设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = args(0)

Dim sb As New StringBuilder

sb.appendLine("<!doctype html>")

sb.appendLine("<html>")

sb.appendLine("<head>")

'sb.AppendLine("<meta name='viewport' c>")

sb.appendLine("</head>")

Dim lst As List(of DataRow) = DataTables("成绩").sqlS elect("身份证件号 = '" & e.Cookies("username") & "'")

Dim nms() As String = {"考试名称","语文_语总","数学_数总","英语_英总","政治_政总","历史_历总","生物_","地理_","物理_物总","化学_化总","总分","班序","校序","区序"}

Dim cps() As String = {"考试名称","语文","数学","英语","政治","历史","生物","地理","物理","化学","总分","班序","校序","区序"}

sb.AppendLine("<Table border='1'>")

sb.AppendLine("<caption>我的成绩<caption></br>")

sb.Append("<tr>")

For Each cp As String In cps

sb.Append("<td>" & cp & "</td>")

sb.AppendLine("</tr>")

For r As Integer=0 To lst.Count-1

sb.Append("<tr>")

For Each nm As String In nms

sb.Append("<td>" & lst(r)(nm) & "</td>")

sb.AppendLine("</tr>")

sb.AppendLine("</Table></br></br>")

e.WriteString(sb.ToString)

老师，上面代码用了sb.AppendLine("<meta name='viewport' c>")由于列较多，显出来很丑，请问如何直接让这个页面横向

主题：横向设置