在移动开发中,提交数据时,多次点确定键数据就会多次重复提交,如何能防止这样的问题吗?
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim userid = Functions.Execute("order",e)
Dim dr1 As DataRow
dr1 = DataTables("ZlEmployee").SQLFind("G_wxh = '" & userid &"'")
'开始正常生成网页内容
If e.PostValues.Count = 0 And dr1 IsNot Nothing Then
wb.AddForm("","form1","itservice.htm")
With wb.AddInputGroup("form1","ipg1","IT报障")
With .AddInput("name","姓名","text")
.Value = dr1("Name")
.Readonly= True
End With
With .AddInput("报障部门","报障部门","text")
.Value = dr1("Dept")
.Readonly= True
End With
.AddInput("报障日期","报障日期","datetime-local").Value = Format(Date.Now,"yyyy-MM-ddTHH:mm")
.AddSelect("故障类型","故障类型","电脑硬件|软件应用|网络相关|打印设备|其它")
End With
With wb.AddInputGroup("form1","ipg2","备注")
.AddTextArea("bz",5).Placeholder = "请输入50字以内的备注"
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"name","报障部门","报障日期","故障类型","bz"} '不能为空的列名数组
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() {"name","报障部门","报障日期","故障类型","bz"} '重新定义了nms数组,增加了两列.
Dim dr As DataRow = DataTables("IT处理记录").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
dr.save()
With wb.AddMsgPage("","msgpage","提交成功", "IT电话:81210043") '生成成功提示页
.AddButton("btn1","返回列表","itrecord.htm?page=0")
End With
e.WriteString(wb.Build)
End If