老师 你好
移动端使用以下代码,在表中录入数据,经常出现的问题是,点一次确定按钮,连续增加好几条重复的数据。请老师给看看代码,有什么问题吗?
Case "ckpc.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","ckpc.htm")
With wb.AddInputGroup("form1","ipg1","出库批次录入")
With .Addinput("出库日期","出库日期","date")
.Attribute = """
End With
With .AddSelect("排单顺序","排单顺序","")
.Attribute = """
End With
.AddSelect("产品名称","产品名称","")
.AddInput("数量","数量","number")
.AddInput("托盘流水号","托盘流水号","Text")
.AddInput("详细批次2","手工批次","Text")
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "submit")
.Add("btn2","首页","" ,"default.htm")
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() {"出库日期","排单顺序","产品名称","数量","托盘流水号","详细批次2"} '重新定义了nms数组,增加了两列.
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
dr.save()
With wb.AddMsgPage("","msgpage","增加成功", "") '生成成功提示页
.AddButton("btn1","继续增加","ckpc.htm")
End With
e.WriteString(wb.Build)
End If