Case "cjcx.htm"
wb.AddPageTitle("","pageheader","我的
With wb.AddTable("","Table1")
.Alternate = 3
.RowHead = 1
Dim nms() As String = {"考试名称","姓名","语文","数学","英语","政治","历史","生物","地理","物理","化学","总分"}
.Head.AddRow(nms)
For Each r As DataRow In DataTables("成绩").sqlSelect("身份证件号 = '" & e.Cookies("username") & "'")
With .body.AddRow()
.AddCell(r("考试名称")) '逐个单元格增加
.AddCell(r("姓名")) '第二个参数用于设置单元格的Attribute属性
.AddCell(r("语文_语总"))
.AddCell(r("数学_数总"))
.AddCell(r("英语_英总"))
.AddCell(r("政治_政总"))
.AddCell(r("历史_历总"))
.AddCell(r("生物_"))
.AddCell(r("地理_"))
.AddCell(r("物理_物总"))
.AddCell(r("化学_化总"))
.AddCell(r("总分")) '用AddCells可以一次添加多个单元格
End With
Next
End With
老师,请问如果列多了一页容不下怎么处理,能不能像冻结列这样向左滑动可以看后面的列