Select Case e.Path
Case "ch.htm"
Dim wb As New weui
Dim sb As New StringBuilder
MessageBox.show(e.PostValues.count )
If e.PostValues.count > 0 Then '(问题1:e.PostValues.count = 0 的时候 网页页面没有生成 )
MessageBox.Show("如果前面是0,这里肯定会执行，一直不为零执行自然不生成网页")
wb.AddForm("","form1","ch.htm")
With wb.AddInputGroup("form1","ipg1","查货")
.AddHiddenValue("id",e.GetValues("id"))
.AddSelect("sl","不合格数量","1|2|3")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
Return '要返回
Else
Dim dr2 As DataRow = DataTables("派发工序表").SQLFind("_identify=" & e.GetValues("id"))
If dr2 IsNot Nothing Then
If dr2("单据状态") = "已完成" Then
If (e.PostValues.ContainsKey("s1") Then
MessageBox.Show("s1的值:" & e.PostValues("sl"))
Else
MessageBox.Show("s1不存在,是不是ID错了")
End If
dr2("问题代码") = "A"
dr2("问题描述") = "不合格"
dr2("检验日期") = Date.Now
dr2("检验员") = e.Cookies("name")
dr2("不合格数量")= e.PostValues("sl") (问题2:sl值没有写入到表中,其他列写入进来了)
dr2.save
End If
End If
End If
''''进行申报和撤销操作之后,返回扫码结果页面,可继续进行其他单据的申报和撤销----20190423
Dim ul As String = "ddpgmx.htm?ddh=" & dr2("订单号") & "&zdh=" & dr2("制单号") & "&kh=" & dr2("款号") & "&xh=" & dr2("箱号")
sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接
''''进行申报和撤销操作之后,返回扫码结果页面,可继续进行其他单据的申报和撤销----20190423
(问题3:申报的这一段没有返回到扫码结果页面)
e.WriteString(sb.ToString)
End Select
加好友 
发短信
Post By：2019/10/9 11:54:00 [只看该作者]
