- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- WeUI框架，也设置好日期输入框，可还会出现错误！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105959)
-- 发布时间：2017/8/29 23:23:00
-- WeUI框架，也设置好日期输入框，可还会出现错误！
此主题相关图片如下：微信图片_20170829232243.jpg
怎样避免？
-- 发布时间：2017/8/29 23:40:00
--
将字符串改为日期
Date.TryParse(需转换的值变量，转换后的值变量)
[此贴子已经被作者于2017/8/30 8:59:34编辑过]
-- 发布时间：2017/8/29 23:40:00
--
贴出addnew的代码
-- 发布时间：2017/8/30 1:02:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.InsertHTML("<img width=\'100%\' src=\' images/fwsk.jpg \'/>")
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","AddNew.htm")
With wb.AddButtonGroup("form1","btg2",False)
.Add("btn1", "点餐","", "AddNew.htm")
.Add("btn4", "浏览", "","list.htm")
.Add("btn4", "统计", "","")
.Add("btn5", "退出", "", "exit.htm")
End With
With wb.AddInputGroup("form1","ipg3","点餐类型")
.AddInput("早餐人数","<label style=\'font-size:18px\'>早餐人数:</label>","number")
.AddInput("中餐人数","<label style=\'font-size:18px\'>中餐人数:</label>","number")
.AddInput("晚餐人数","<label style=\'font-size:18px\'>晚餐人数:</label>","number")
.AddInput("用餐日期","<label style=\'font-size:18px\'>用餐日期:</label>","Date")
.AddInput("备注","<label style=\'font-size:18px\'>备注:</label>","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
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" \'改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return "" \'必须返回
End If
Next
nms = New String() {"编号","小计","姓名","用餐日期","备注","登记日期","早餐人数","中餐人数","晚餐人数"}
Dim xm As String = DecryptText(e.Cookies("username"),"123","123")
Dim drs As List(of DataRow) = DataTables("点餐记录表").SQLSelect("姓名 = \'" & xm & "\'And 用餐日期 = \'" & e.PostValues("用餐日期") & "\'")
For Each dr2 As DataRow In drs
If dr2("早餐人数") > 0 And e.PostValues("早餐人数") > 0 Then
wb.AppendHtml("<meta http-equiv=\'refresh\' c>",True)
wb.AddToast("","t1", "今天已有早餐数据,不能重复点餐!",1).Visible= True
e.WriteString(wb.Build)
Return ""
End If
If dr2("中餐人数") > 0 And e.PostValues("中餐人数") > 0 Then
wb.AppendHtml("<meta http-equiv=\'refresh\' c>",True)
wb.AddToast("","t1", "今天已有中餐数据,不能重复点餐!",1).Visible= True
e.WriteString(wb.Build)
Return ""
Return ""
End If
If dr2("晚餐人数") > 0 And e.PostValues("晚餐人数") > 0 Then
wb.AppendHtml("<meta http-equiv=\'refresh\' c>",True)
wb.AddToast("","t1", "今天已有晚餐数据,不能重复点餐!",1).Visible= True
e.WriteString(wb.Build)
Return ""
Return ""
End If
Next
Dim dr As DataRow = DataTables("点餐记录表").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
Dim dr1 As DataRow = DataTables("点餐价格").DataRows(0)
Dim zcxj As Double
Dim mcxj As Double
Dim wcxj As Double
If dr("早餐人数") > 0 Then
zcxj = (dr("早餐人数") - 1) * dr1("早餐家属单价") + dr1("早餐职工单价")
Else
zcxj = 0
End If
If dr("中餐人数") > 0 Then
mcxj = (dr("中餐人数") - 1) * dr1("中餐家属单价") + dr1("中餐职工单价")
Else
mcxj = 0
End If
If dr("晚餐人数") > 0 Then
wcxj = (dr("晚餐人数") - 1) * dr1("晚餐家属单价") + dr1("晚餐职工单价")
Else
wcxj = 0
End If
dr("小计") = zcxj + mcxj + wcxj
dr("登记日期") = Date.Now
dr("姓名") = DecryptText(e.Cookies("username"),"123","123")
dr.Save
wb.AddForm("","form1","AddNew.htm")
With wb.AddButtonGroup("form1","btg2",False)
.Add("btn1", "点餐","", "AddNew.htm")
.Add("btn4", "浏览", "","list.htm")
.Add("btn4", "统计", "","")
.Add("btn5", "退出", "", "exit.htm")
End With
With wb.AddMsgPage("","msgpage","增加成功", "感谢你的支持!") \'生成成功提示页
.AddButton("btn1","继续增加","AddNew.htm")
End With
e.WriteString(wb.Build)
End If
-- 发布时间：2017/8/30 1:06:00
--
没找到这个用法的帮助。谢谢
-- 发布时间：2017/8/30 9:23:00
--
日期格式，只是在浏览器那里限制。不同浏览器有不同的显示模式（手机上基本都是规范的），但如果用了特殊浏览器，如ie、火狐等，可以任意输入字符的。
你可以写js代码校验，参考 http://www.foxtable.com/mobilehelp/scr/0104.htm