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

怎么转换，请帮介绍一下

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

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

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怎样写

老师，什么意思，好像没有变呢

Case "cjcxr.htm"
        wb.AddPageTitle("","pageheader","我的成绩")
        '  wb.InsertHTML("<div style='text-align:center'><img src='./images/backr.png' width=50 height=50 /></div>")
        With wb.AddTable("","Table2")
            .Alternate = 3
            Dim nms() As String = {"考试名称","姓名","地理","物理","化学","总分","班序","校序"}
            .Head.AddRow(nms)
            .ColWidth = "65px,45px,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("校序"))
                End  With
            Next
        End With
        ' wb.InsertHTML("<div style='text-align:center'><img src='./images/exit.jpg' width=50 height=50 /></div>")
        With wb.AddButtonGroup("","btg1", False)
            .Add("btn8", "左翻","","cjcxr.htm").Kind = 1
            .Add("btn8", "退出","","default.htm").kind=1
            .Add("btn9", "右翻","","cjcx.htm").Kind = 1
        End With
    Case "cjcx.htm"
        wb.AddPageTitle("","pageheader","我的成绩")
        'wb.InsertHTML("<div style='text-align:center'><img src='./images/backl.png' width=50 height=50 /></div>")
        With wb.AddTable("","Table1")
            .Alternate = 3
            Dim nms() As String = {"考试名称","姓名","语文","数学","英语","政治","历史","生物"}
            .Head.AddRow(nms)
            .ColWidth = "65px,45px,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("生物_"))
                End  With
            Next
        End With
        ' wb.InsertHTML("<div style='text-align:center'><img src='./images/exit.jpg' width=50 height=50 /></div>")
        With wb.AddButtonGroup("","btg1", False)
            .Add("btn8", "左翻","","cjcxr.htm").Kind = 1
            .Add("btn8", "退出","","default.htm").kind=1
            .Add("btn9", "右翻","","cjcx.htm").Kind = 1
            .Add("btn9", "EXCL表","","cjcx.htm").Kind = 1
        End With

老师，请问我想在这个红色部分加一个EXCL表打开添加的表怎么写，找了下说明没看到，谢谢

老师，我是想将手机中看到的生成的表导出并打开，D\text.xls是存在的表吧，我是将动态生成的我的成绩打开