Case "cjcxrb.htm"
wb.AddForm("","form1","cjcxrb.htm")
wb.AddPageTitle("","pageheader","我班成绩")
' wb.InsertHTML("<div style='text-align:center'><img src='./images/backr.png' width=50 height=50 /></div>")
With wb.AddInputGroup("form1","ipg1","")
With .AddInputCell("ic1") '通过InputCell增加输入框
.AddLabel("ksmc","考试名称",0) '增加标签,0显示在左边
.AddSelect("ksmc1",DataTables("考试名称").SQLGetComboListString("考试名称"),1) '增加下拉列表,0表示显示在左边
.AddVcodeButton("cx","查看",2).Attribute = "onclick='document.getElementById(""form1"").submit();'" '增加获取验证码按钮,2表示显示在右边
End With
End With
Dim filter As String = ""
If e.PostValues.Count > 0 Then
filter = " and 考试名称 = '" & e.PostValues("ksmc1") & "'"
End If
With wb.AddTable("","Table2")
.Alternate = 3
.Attribute="style='text-align:center'"
Dim nms() As String = {"考试名称","姓名","地理","物理","化学","总分","班序","校序"}
.Head.AddRow(nms)
.ColWidth = "60px,40px,30px,30px,30px,30px,30px,30px"
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
For Each r As DataRow In DataTables("成绩").sqlSelect("班级全称 = '" & dr("班级") & "' and 单位名称 = '" & dr("group") & "'" & filter )
With .Body.AddRow(r("考试名称"),r("姓名"),r("地理_"),r("物理_物总"),r("化学_化总"),r("总分"),r("班序"),r("校序"))
End With
Next
End With
加好友 
发短信
Post By：2017/8/12 11:12:00 [显示全部帖子]
