以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮忙看看  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141708)
--  作者：yetle
--  发布时间：2019/10/9 11:54:00
--  帮忙看看
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
--  作者：狐狸爸爸
--  发布时间：2019/10/9 12:37:00
--  

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
--  作者：yetle
--  发布时间：2019/10/9 16:57:00
--  
    1、    MessageBox.show(e.PostValues.count )返回是10
2、提示return必须返回值
[此贴子已经被作者于2019/10/9 17:29:14编辑过]
--  作者：狐狸爸爸
--  发布时间：2019/10/9 17:00:00
--  
正常应该是没有提交数据的时候生成网页，postvalues.Count =0 生成网页，而不是>0生成网页。

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



帮助很多类似例子，可以照着做一遍，听过之后，逐步修改为自己需要的。
--  作者：yetle
--  发布时间：2019/10/9 17:31:00
--  
提示return必须返回值
--  作者：狐狸爸爸
--  发布时间：2019/10/9 20:24:00
--  
是不是写错位置了，如果是事件，不会要求Return返回值的