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
.Attribute="style='text-align:center'"
Dim nms() As String = {"考试名称","地理","物理","化学","总分","班序","校序","区序"}
.Head.AddRow(nms)
.ColWidth = "60px,25px,25px,25px,25px,25px,25px,25px"
For Each r As DataRow In DataTables("成绩").sql Select("身份证件号 = '" & 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)
Dim btn = .Add("btn1","左翻")
btn.Attribute = ""
btn.kind = 1
.Add("btn2", "退出","","default.htm").kind=1
.Add("btn3", "右翻","","cjcxr.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
.Attribute="style='text-align:center'"
Dim nms() As String = {"考试名称","语文","数学","英语","政治","历史","生物"}
.Head.AddRow(nms)
.ColWidth = "60px,25px,25px,25px,25px,25px,25px"
For Each r As DataRow In DataTables("成绩").sqlS elect("身份证件号 = '" & e.Cookies("username") & "'")
With .Body.AddRow(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("btn1", "左翻","","cjcx.htm").Kind = 1
Dim b1 = .Add("btn2", "退出","")
b1.kind=1
b1.Attribute = ""
' .Add("btn2","退出").Attribute = ""
.Add("btn3", "右翻","","cjcxr.htm").Kind = 1
End With
老师，因为查询显示的列比较多，我想了个办法分成了两个页面，但这样很不好看，效率也不高，请问如何实现能显示多列
加好友 
发短信
Post By：2018/7/16 21:17:00 [只看该作者]
