按照开发文档里的例子做了个出库页面，这个网页测试一切正常，能录入数据，也能扫二维码录入，现在想把这个页面移植到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