Else '显示统计结果
wb.AddForm("","form1","sjzdsave.htm")
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
Dim pr As DataRow = DataTables("试卷征订").sqlfind("学校名称 ='" & dr("group") & "' and 学期 = '" & e.PostValues("学期") & "'")
If pr Is Nothing
pr = DataTables("试卷征订").AddNew()
pr("学校名称") = dr("group")
pr("学期")= e.PostValues("学期")
pr.save()
End If
wb.AppendCookie("sjzdid",pr("_Identify"))
With wb.AddInputGroup("form1","ipg2","输入各年级试卷数")
.AddInput("一年级","一年级","number").Value = pr("一年级")
.AddInput("二年级","二年级","number").Value = pr("二年级")
.AddInput("三年级","三年级","number").Value = pr("三年级")
.AddInput("四年级","四年级","number").Value = pr("四年级")
.AddInput("五年级","五年级","number").Value = pr("五年级")
.AddInput("六年级","六年级","number").Value = pr("六年级")
.AddInput("六年级","六年级","number").Value = pr("六年级")
.AddInput("七年级","七年级","number").Value = pr("七年级")
.AddInput("八年级","八年级","number").Value = pr("八年级")
.AddInput("九年级","九年级","number").Value = pr("九年级")
End With
With wb.AddButtonGroup("form1","btg1", False) '水平排列
.Add("btn6", "确定保存","submit")
.Add("btn7", "返回列表","button","xlist.htm")
End With
加好友 
发短信
Post By：2017/9/17 21:46:00 [显示全部帖子]
