| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 日期验证，请教如何处理值类型转换 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97644) |
| -- 作者：zhangjian222200 -- 发布时间：2017/3/16 9:50:00 -- 日期验证，请教如何处理值类型转换 执行验证页面代码，msgbox，显示1，没有显示2，错误提示：（日期验证，请教如何处理值类型转换） .NET Framework 版本：2.0.50727.3655 Foxtable 版本：2017.3.6.1 错误所在事件：自定义函数valid_fillout 详细错误信息： 调用的目标发生了异常。 从字符串“”到类型“Date”的转换无效。 这是页面生成代码： Dim e As RequestEventArgs = args(0) \'注册第3页,完善资料 Select Case e.Path Case "fillout.htm" Dim wb As New weui wb.AddTopTips("","toptip1","") \'用于显示动态错误提示 wb.AddPageTitle("","pageheader","***","**************") wb.AddForm("","form1","fillout.htm").Attribute="" With wb.AddInputGroup("form1","ipg1","完善资料") \'.AddInput("xm","姓名","text") \'常规语法增加输入框 With .AddInputCell("ic1",0) \'通过InputCell增加输入框(1表示突出显示,2表示红色警示图标) .AddLabel("lsr","我的生日",0) \'增加标签(0显示在左边) .AddInput("isr","date",1) \'增加输入框(0靠左显示,1居中显示,2靠右显示) End With .AddSelect("shyzk","婚姻状况","|未婚|已婚|离异|丧偶") .AddSelect("sxl","学历","|高中及以下|中专|大专|本科|硕士|博士") .AddSelect("ssg","身高","|150及以下|151|152|153|154|155|156|157|158|159|160|161|162|163|164|165|166|167|168|169|170|171|172|173|174|175|176|177|178|179|180|181|182|183|184|185|186|187|188|189|190以上") .AddSelect("syx","月薪","|3000元以下|3001~5000|5001~8000|8001~10000|10001以上") .AddSelect("szs","所在省","|北京市|天津市|河北省|山西省|内蒙古自治区|辽宁省|吉林省|黑龙江省|上海市|江苏省|浙江省|安徽省|福建省|江西省|山东省|河南省|湖北省|湖南省|广东省|广西壮族自治区|海南省|重庆市|四川省|贵州省|云南省|西藏自治区|陕西省|甘肃省|青海省|宁夏回族自治区|新疆维吾尔自治区") .AddSelect("szshi","所在市","|1|2") With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定","submit") End With End With wb.AppendHTML("<script src=\'./lib/ajaxform_fillout.js\'></script>") \'引入脚本文件 e.WriteString(wb.Build) \'生成网页 End Select 这是验证内部函数页面代码： Dim e As RequestEventArgs = args(0) \'验证页面(注册第2页) Select Case e.Path Case "valid_fillout.htm" Dim wb As New weui Dim drbianh As String If e.PostValues.ContainsKey("drbianhao") Then drbianh = e.Cookies("drbianhao") \'为cookie传递数据 End If Dim dr As DataRow = DataTables("会员资料").sqlFind("会员编号 = \'" & drbianh & "\'") msgbox("1") Dim shengr As Date = e.PostValues("isr") \'验证生日 msgbox("2") Dim hunyzk As String = e.PostValues("shyzk") \'验证婚姻状况 Dim xuel As String = e.PostValues("sxl") \'验证学历 Dim sheng As String = e.PostValues("ssg") \'验证身高 Dim yuex As String = e.PostValues("syx") \'验证月薪 Dim suozs As String = e.PostValues("szs") \'验证所在省 Dim suozshi As String = e.PostValues("szshi") \'验证所在市 msgbox("3") Dim jtrq As Date = Date.Today \'定义:今天日期,取首字母作为变量名 Dim xznf As Integer = jtrq.year \'定义:现在年份,取首字母作为变量名 Dim csnf As Integer = shengr.year \'定义:出生年份,取首字母作为变量名 Dim nl As Integer = xznf - csnf If csnf = "" Then msgbox("3-1") e.WriteString("生日不能为空!") Return "" ElseIf nl < 18 Then msgbox("3-2") e.WriteString("年龄小于18岁,不能参与!") Return "" ElseIf nl > 100 Then msgbox("3-3") e.WriteString("请输入正确的生日日期!") Return "" ElseIf hunyzk = "" Then e.WriteString("婚姻状况不能为空!") Return "" ElseIf xuel = "" Then e.WriteString("学历不能为空!") Return "" ElseIf sheng = "" Then e.WriteString("身高不能为空!") Return "" ElseIf yuex = "" Then e.WriteString("月薪不能为空!") Return "" ElseIf suozs = "" Then e.WriteString("所在省不能为空!") Return "" ElseIf suozshi = "" Then e.WriteString("所在市不能为空!") Return "" End If If dr IsNot Nothing Then dr("我的生日") = e.PostValues("shengr") dr("婚姻状况") = e.PostValues("hunyzk") dr("学历") = e.PostValues("xuel") dr("身高") = e.PostValues("sheng") dr("月薪") = e.PostValues("yuex") dr("所在省") = e.PostValues("suozs") dr("所在市") = e.PostValues("suozshi") msgbox("4") dr.save() Else msgbox("5") End If \'With wb.AddMsgPage("","msgpage","注册成功", "本地自助服务,为您婚恋交友之路保驾护航") \'生成成功提示页 \'.AddButton("btn1","完善资料","/fillout.htm") \'End With wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'那么直接跳转到登录页面 e.WriteString(wb.Build) \'生成网页 End Select [此贴子已经被作者于2017/3/16 11:14:07编辑过]
|
| -- 作者：有点色 -- 发布时间：2017/3/16 9:58:00 -- 这样写
Dim str As String = e.PostValues("isr") \'验证生日 |
| -- 作者：有点色 -- 发布时间：2017/3/16 9:59:00 -- 你接收值的时候，要用String类型，不能直接用Date |