Select Case e.Path
Case "ch.htm"
Dim wb As New weui
Dim sb As New StringBuilder
If e.PostValues.count > 0 Then （问题1：e.PostValues.count = 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) '生成网页
End If
Dim dr2 As DataRow = DataTables("派发工序表").SQLFind("_identify=" & e.GetValues("id"))
If dr2 IsNot Nothing Then
If dr2("单据状态") = "已完成" Then
dr2("问题代码") = "A"
dr2("问题描述") = "不合格"
dr2("检验日期") = Date.Now
dr2("检验员") = e.Cookies("name")
dr2("不合格数量")=e.PostValues("sl") （问题2：sl值没有写入到表中，其他列写入进来了）
dr2.save
'''''单据撤销,清空扫码人,扫码人id,扫码时间,实际生产员工,单据状态----20190423
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 [显示全部帖子]
