With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
'提交成功,提示是否看答案?
With wb.AddDialog("","dlg3", "","")
.AddButton("btnYes","是").Attribute = ""
.AddButton("btnNo","否","Result.htm").Kind = 1
End With
'提交失败被javascript调用的提示框
With wb.AddDialog("","dlg4", "","")
.AddButton("btnOK","确定")
End With
wb.AppendHTML("<script src='../ajax/libs/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Else '保存新增的调查单
Dim nms() As String = {"q1","q2","q3","q4","q5","q6","q7","q8","科室","姓名","岗位","电话","提交日期"} '不能为空的列名数组
For Each nm As String In nms
msgbox(e.PostValues(nm))
If e.PostValues(nm)="" Then '生成错误提示页
e.WriteString("请输入" & nm & "!")
Return "wrong" '必须返回
End If
Next
nms=new String(){"q1","q2","q3","q4","q5","q6","q7","q8","科室","姓名","岗位","电话","提交日期"}
Dim dr As DataRow = DataTables("试卷表").AddNew()
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
msgbox(dr(nm))
Next
dr.Save()
e.WriteString("ok")
' With wb.AddMsgPage("","msgpage","增加成功", "您的答案已经收到,感谢你的反馈!") '增加订单成功提示信息
' ' .AddButton("btn1","继续增加","SatisSurvey.htm")
' ' .AddButton("btn1","返回列表","list.htm")
' End With
End If
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2017/3/29 9:06:00 [只看该作者]
