按照开发文档里的例子做了个出库页面，这个网页测试一切正常，能录入数据，也能扫二维码录入，现在想把这个页面移植到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
加好友 
发短信
Post By：2020/1/10 16:36:00 [只看该作者]
