主题：关于网页设计的一个问题

按照开发文档里的例子做了个出库页面，这个网页测试一切正常，能录入数据，也能扫二维码录入，现在想把这个页面移植到TabBar某个页面里，为什么移植这个页面后，TabBar这个页面之前的页面能显示，这个页面之后的页面就不显示了，把这个移植界面里的2行e.WriteString(wb.Build)删除，就能显示之后的页面了，但这个移植的出库界面的按钮就失效了。请问下面的代码应该怎么改？我现在大体知道是这句代码e.WriteString(wb.Build)用的不对，但怎么改不知道，哪位老师给指导一下

        If e.PostValues.Count = 0 Then

            wb.AppendHTML("<script src='/" & path & "/js/生产原料出库预估计算.js'></script>", True)

           

            ' wb.InsertHTML("<h1  style='font-size:25px;'>生产原料出库</h1>")

            wb.AddToast("","t1", "正在保存",1) '定义提示

           

            wb.AddForm("","form1","2-smck.htm").attribute= """

            With wb.AddInputGroup("form1","ipg1","生产原料出库")

                'wb.InsertHTML("<h1  style='font-size:18px;'>原料货号</h1>")

                With .AddInputCell("ic1") '通过InputCell增加输入框

                    .AddLabel("lnl","原料货号",0) '增加标签,0显示在左边

                End With

                .AddInput("原料货号","","Text") '前一个"姓名"是ID,后一个"姓名"是标题

               

                .AddInput("操作日期","出库日期","date").Value = Format(Date.Today,"yyyy-MM-dd")

                .AddInput("原料类型","原料类型","Text") '前一个"姓名"是ID,后一个"姓名"是标题

                .AddSelect("领料单位","领料单位","散染车间|梳纺车间|兔毛纺车间|外协纺纱|其他用途")

                .AddInput("ckjs","出库件数","number").Step = "0.01"

                .AddInput("mjbz","每件标重","number").Step = "0.01"

                '.AddInput("ygbz","预估出库","number")

               

                With .AddInputCell("sj") '通过InputCell增加输入框

                    .AddLabel("lsj","预估出库",0)'增加标签,0显示在左边

                    .AddInput("ygbz","number",1).Step = "0.01" '增加输入框,1表示显示在中间

                    .AddVcodeButton("hym","预估计算",2).Attribute =""

                   

                End With

               

               

                

               

               

               

                .AddInput("出库标重","出库标重","number").Step = "0.01"

                .AddSwitch("是否清批","是否清批").Value = "True"

               

                .AddInput("外协单位","外协单位","Text") '前一个"姓名"是ID,后一个"姓名"是标题

                .AddInput("备注","备注说明","Text") '前一个"姓名"是ID,后一个"姓名"是标题

            End With

           

            With wb.AddButtonGroup("form1","btg5",False)

                .Add("btn1", "返回菜单","" ,"default.htm")

                '.Add("btn2", "返回", "","1-ylck.htm")

                .Add("btn5", "扫一扫码", "button").Attribute =  " & path & "/plus/barcode_scan.html',true,true);"""

                .Add("btn2", "确定出库", "submit")

               

            End With

           

            'wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('原料货号').value=r;}</script>")

            wb.InsertHTML("<script>function scaned( t, r, f ) {dosomthing(r);}</script>")

            wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/扫码相关.js'></script>", True)

            wb.AppendHTML("<script src='/" & path & "/js/生产原料出库预估计算.js'></script>", True)

            '引入脚本文件

            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

           

            

           

            Dim dr As DataRow = DataTables("外购原料出库").AddNew()

            dr("移动出库") =True

            dr("发料人") =UserName

           

            Dim inms() As String = {"操作日期","原料类型","原料货号","领料单位","出库标重","ckjs","是否清批","外协领料单位名称","备注"}  '输入框名称数组

            Dim cnms() As String = {"操作日期","原料类型","原料货号","领料单位","出库标重","出库件数","是否清批","外协领料单位名称","备注"}  '列名数组,注意列名和输入框必须一一对应,位置不能错乱

            For i As Integer = 0 To inms.Length -1

                dr(cnms(i)) = e.PostValues(Inms(i))

            Next

            dr.Save() '保存并生成增加成功提示页面

           

            With wb.AddMsgPage("","msgpage","出库成功!","")'生成成功提示页

                .AddButton("btn1","继续出库","2-smck.htm")

            End With

        End If