|
Case "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("","ipg1","")
With .AddInputCell("ic1") '通过InputCell增加输入框
.AddLabel("ksmc","考试名称",0) '增加标签,0显示在左边
.AddSelect("ksmc1",DataTables("考试名称").SQLGetComboListString("考试名称"),1) '增加下拉列表,0表示显示在左边
.AddVcodeButton("cx","查看",2) '增加获取验证码按钮,2表示显示在右边
End With
End With
' With wb.AddButtonGroup("","btg1", False)
' Dim btn = .Add("btn1","左翻")
'' btn.Attribute = ""
' btn.kind = 1
' .Add("btn2", "退出","","default.htm").kind=1
' .Add("btn3", "右翻","","cjcxrb.htm").Kind = 1
' End With
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") & "'")
With .Body.AddRow(r("考试名称"),r("姓名"),r("地理_"),r("物理_物总"),r("化学_化总"),r("总分"),r("班序"),r("校序"))
End With
Next
End With
老师，请问上面代码我想改成最初页面只有考试名称选择项，选好后列表项点查询执行查询，像datachanged事件一样，这怎样做
|
加好友 
发短信
Post By：2017/8/12 10:46:00 [只看该作者]
