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这样相当于把一个表分成两部分来显示,这该怎样处理,没有基础,请老师明示,谢谢