Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
If e.PostValues.Count = 0 Then '分组统计设置
wb.AddPageTitle("","pageheader","自测考试报名","请依次选填,入学年为学级")
wb.AddForm("","form1","zcks.htm")
With wb.AddInputGroup("form1","ipg1","")
.AddSelect("学期","学期","17秋|18春")
.AddSelect("xd","学段","初中|小学")
.AddSelect("xj","学级",DataTables("级").SQLGetComboListString("级"))
.AddSelect("bj","班级",DataTables("班").SQLGetComboListString("班","","序"))
.AddSelect("km","科目",DataTables("科目").SQLGetComboListString("科目"))
.AddInput("ksmc","考试名称","text")
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "submit")
.Add("btn1", "返回","","jwzrdefault.htm")
End With
Else '显示统计结果
Dim bjhc As String = trim(e.PostValues("xd") & e.PostValues("xj") & e.PostValues("bj"))
wb.AddPageTitle("","pageheader","学生成绩表册",bjhc & ":" & e.PostValues("ksmc"))
wb.AddForm("","form1","")
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
Dim xss As List(Of DataRow) =DataTables("自测成绩").sqlselect("学期= '"& e.PostValues("学期") & "' and 学校名称 = '" & dr("group") & "' and 班级 = '" & bjhc & "' And 考试名称 ='" & e.PostValues("ksmc") & "' and 科目 = '" & e.PostValues("km") & "'","","姓名")
With wb.AddInputGroup("form1","ipg2","")
For Each xs As DataRow In xss
.Addinput("bh" & xs("_Identify"),xs("姓名"),"number")
Next
End With
With wb.AddButtonGroup("form1","btg1", False) '水平排列
.Add("btn6", "保存","submit")
.Add("btn7", "返回","button").Attribute = ""
End With
End If
wb.AppendHTML("<script src='./lib/order.js'></script>")
e.WriteString(wb.Build)
老师，现在按上面代码做成出动态生成输入框，但因为一个学生的成绩输入有a卷，和b卷成绩两列，
1、第一句红色这里该怎样改，也就是达到在手机上一行上输入一个学生的A卷，B卷两个独立数据，对应表的A卷列，B卷列，
2、保存提交数据怎么办？如何用"bh" & xs("_Identify")去对应保存，请帮指导
谢谢，今天想了很久终于想到如何动态生成控件，基础差，望多指导
加好友 
发短信
Post By：2017/9/27 21:16:00 [只看该作者]
