'''
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.InsertHTML("<script src='../mui/js/mui.min.js'></script>")
wb.InsertHTML("<script Type='text/javascript' charset='utf-8'>mui.init();</script>")
wb.InsertHTML("<style> div.weui_msg{position: absolute; top: 50%;left: 50%;transform:translate(-50% ,-50%) }</style>")
wb.InsertHTML("<style>.weui_msg .weui_msg_desc{width:400px;}</style>")
Dim pr As DataRow
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "sect 学生姓名,身份证件号,户籍地址,家庭住址,联系电话,提请审核,审核锁定,监护人姓名,是否建档立卡,留守情况,户口性质,就读方式,就餐分类,政治面貌,民族,健康状况,审核锁定,审核结论,备注,申读学校,申读班级,性别,出生日期,学籍号,_Identify From {学生信息} WHERE 身份证件号 = '" & e.Cookies("username") & "'"
Dim dt As DataTable = cmd.ExecuteReader(True)
If dt.DataRows.count>0
pr=dt.DataRows(0)
End If
Dim nms() As String = {"学生姓名","家庭住址","户籍地址","联系电话","留守情况","健康状况","是否建档立卡","户口性质","民族","政治面貌","监护人姓名","就读方式","就餐分类","留守情况","申读学校","申读班级"}
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","信息提交不完整", nm & "内容不能为空!")
.icon = "Warn" '改变图标
Dim btn1 = .AddButton("btn1","返回填写")
btn1.kind=1
btn1.Attribute= "style='width:150px;border-radius:20px;border:1px solid silver;'"
End With
e.WriteString(wb.Build)
Return true'必须返回
End If
Next
nms = new String() {"学生姓名","家庭住址","户籍地址","联系电话","留守情况","健康状况","是否建档立卡","邮政编码","户口性质","民族","政治面貌","监护人姓名","就读方式","就餐分类","申读学校","申读班级","学籍号"}
messagebox.show("问题1")
For Each nm As String In nms
messagebox.show(nm)
If e.PostValues.ContainsKey(nm)
pr(nm)=trim(e.postvalues(nm))
End If
Next
messagebox.show("问题2")
pr("性别")=ReadSex(e.Cookies("username"))
pr("出生日期")=ReadBirthDay(e.Cookies("username"))
pr("提请审核")=True
messagebox.show("lsjsljd111")
With wb.AddMsgPage("","msgpage","审核提交成功", "返回学生列表") '生成成功提示页
End With
pr.save()
e.WriteString(wb.Build)
e.Handled=True
请问老师，这个代码没改，今天出了问题，红色部分的１能显，２不能显， messagebox.show(nm)只显示了学生信息就不行了，问题没找到是什么，请老师指定
加好友 
发短信
Post By：2020/7/17 10:32:00 [显示全部帖子]
