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

1、绝对列宽不行，当手机宽度容纳不下你设置的列宽度，就会【自适应】。

2,3、加代码 wb.InsertHTML("<div style='text-align:center'><img src='./images/001.jpg' width=200 height=50 /></div>")

如果点图标打开1.htm怎样写

wb.InsertHTML("<div style='text-align:center'><img src='./images/001.jpg' width=200 height=50 onclick='location=""abc.htm""'/></div>")

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

哦，屏蔽掉了

wb.InsertHTML("<div style='text-align:center'><img src='./images/001.jpg' width=200 height=50 onclick='location=""abc.htm""'/></div>")

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表打开添加的表怎么写，找了下说明没看到，谢谢

1、

.Add("btn9", "EXCL表","","excel.htm").Kind = 1

2、

Select Case e.path

    Case "excel.htm"

        e.WriteFile("d:\test.xls")

End Select

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

方法一：用模板导出数据 http://www.foxtable.com/mobilehelp/scr/0148.htm

方法二：用saveExcel的方法导出数据 http://www.foxtable.com/webhelp/scr/0559.htm

方法三：直接导出数据 http://www.foxtable.com/webhelp/scr/1148.htm