主题：移动开发，生成的表列多一页不能容下怎么办

这种对比采用行列转换吧，把科目作为行就可以了。姓名也可以放在前面显示。

怎么转换，请帮介绍一下

关键是一个学生的考试次数多了后，考试名称多了后也容不下

此主题相关图片如下：99.jpg

考试名称可以考虑只留两个字的宽度，这样显示成绩或名次也够了。太多了考试次数也是显示不下的。

一个学生可能有十几次考试，同样可能也容不下呀，我到是想有什么办法在手机上自动旋屏，也就是生在横向网页，当然是个人想法，不晓得有不有这个功能和方法

 

如果要用原生的table，样式的学习，参考 http://www.w3school.com.cn/css/index.asp

 

如果要用weui，行列转换，参考 http://www.foxtable.com/webhelp/scr/2965.htm

 

Case "cjcx.htm"         wb.AddPageTitle("","pageheader","我的成绩")         With wb.AddButtonGroup("","bt1", False)             .Add("left", "左移","button").Kind = 1             .Add("right", "右移","button").kind=1         End With         With wb.AddTable("","Table1")             .Alternate = 3             Dim nms() As String = {"考试名称","姓名","语文","数学","英语","政治","历史","生物","地理"}             .Head.AddRow(nms)             .ColWidth = "65px,45px,30px,30px,30px,30px,30px,30px,30px"             For Each r As DataRow In DataTables("成绩").sqlSelect("身份证件号 = '" & e.Cookies("username") & "'")                 With .Body.AddRow(r("考试名称"),r("姓名"),r("语文_语总"),r("数学_数总"),r("英语_英总"),r("政治_政总"),r("历史_历总"),r("生物_"),r("地理_"))                 End  With             Next         End With                    With wb.AddTable("","Table2")                 .Alternate = 3                 Dim nms() As String = {"考试名称","姓名","物理","化学","总分","班序","校序"}                 .Head.AddRow(nms)                 .ColWidth = "65px,45px,30px,30px,30px,30px,30px"                 For Each r As DataRow In DataTables("成绩").sqlSelect("身份证件号 = '" & e.Cookies("username") & "'")                     With .Body.AddRow(r("考试名称"),r("姓名"),r("物理_物总"),r("化学_化总"),r("总分"),r("班序"),r("校序"))                     End  With                 Next             End With               老师，你好，为了实再效果，还是想用weui，想法是打开网页先显示tabl1部份，当点右移时，显示tabl2部分，点左移时再显table1这样相当于把一个表分成两部分来显示，这该怎样处理，没有基础，请老师明示，谢谢 结合实际，我觉得能这样做更好，因为在手机上纵向可排一二十次考试，排不下还可以下滑，列分成两部分来做，请老师帮看下这种想法如何实现

变通的话，你也可以生成多个表格，把表格拆分成 1.htm、2.htm、3.htm，再做个按钮，切换到不同的页面去。