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

Dim e As RequestEventArgs = args(0)

Dim sb As New StringBuilder

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

sb.appendLine("<head>")

sb.appendline("<style Type='text/css'>h1.pos_abs{position:absolute;left:100px;top:10px}</style>")

sb.appendLine("</head>")

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

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

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

sb.appendline("<h1 class='pos_abs'>我的成绩</p>")

sb.appendline("<div style='width:2200px; height:2000px; overflow:scroll;'>")

sb.AppendLine("<Table border='1'width='100%' align='center'>")

'sb.AppendLine("<caption style='font-size:80px' align ='center'>我的成绩<caption></br>")

sb.Append("<tr>")

For Each cp As String In cps

sb.Append("<td style='font-size:60px'>" & 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 style='font-size:50px' align ='center'>" & lst(r)(nm) & "</td>")

sb.AppendLine("</tr>")

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

sb.AppendLine("</dv>")

e.WriteString(sb.ToString)

老师，我这样改：“我的成绩”这个标题还是跟着表格划动，懂不起移动开发好多要学习，请帮写下来理解，我是想把我的成绩这几个固定在屏幕中间，不随表左右划动

Dim sb As New StringBuilder

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

sb.appendLine("<html>")

sb.appendLine("<head>")

sb.appendLine("</head>")

sb.appendLine("<body>")

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

sb.appendline("<p style='font-size:60px'align='center'>我的成绩</p>")

sb.appendline("<div style='width:100%; overflow-x:auto;'>")

sb.AppendLine("<Table border='1'width='2200px' align='center'>")

'sb.AppendLine("<caption style='font-size:80px' align ='center'>我的成绩<caption></br>")

sb.Append("<tr>")

For Each cp As String In cps

sb.Append("<td style='font-size:60px'>" & cp & "</td>")

sb.AppendLine("</tr>")

For r As Integer=0 To 10

sb.Append("<tr>")

For Each nm As String In nms

sb.Append("<td style='font-size:50px' align ='center'>" & 100 & "</td>")

sb.AppendLine("</tr>")

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

sb.AppendLine("</div>")

sb.appendLine("</body>")

sb.appendLine("</html>")

e.WriteString(sb.ToString)

谢谢老师，终于实现了我想要实的效果了，慢慢理解并应用，谢谢!

老师，请问style='width:auto'是自动为屏幕宽度，但要压缩表头，如何能不压缩表头而刚好适应内容来设置表宽

以下是引用刘林在2018/7/18 15:19:00的发言：

老师，请问style='width:auto'是自动为屏幕宽度，但要压缩表头，如何能不压缩表头而刚好适应内容来设置表宽

【压缩表头】什么意思？

如果不设置宽度，默认就是根据你的内容显示的。

具体做个例子说明你要做什么效果。

1.sb.AppendLine("<Table border='1'style='width:3200px' align='center'>")

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

我的意思是

用1时，表格设计足够宽了，各列表头不会换行，但间矩有点大，加之现在设计为要显示的列数为动态的，就会有时宽有又换行显示了

用2时，表格自适应屏幕了，但就内容就换行。

我想如何能让每行的内容都不换行，表格每列刚好容下内容，表格的宽度和每列的宽度去适应文字内容

[此贴子已经被作者于2018/7/18 16:50:43编辑过]

主题：如何显示多列表格