老师;你好!再请教一下，我有两个页页面分别是：scwgd.htm和ygcl.htm 代码分别是Dim e As RequestEventArgs = args(0)Dim path As String = "foxtableAppTest"
Dim wb As New weui
wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
'wb.AppendLine("<link rel='stylesheet' href='./css/test.css'/>")
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","scwgd.htm")
With wb.AddInputGroup("form1","ipg1","增加完工单")
.AddInput("日期","完工日期","date").Value = Date.Today
.AddSelect("班次","班次","|日班|夜班")
With .AddInputCell("ic1") '通过InputCell增加输入框
.AddLabel("流程卡卡号","流程卡卡号",0) '增加标签,0显示在左边
.AddInput("在产品编号","text",1).Attribute = "" '调用js函数'增加输入框,1表示显示在中间
.AddImage("pim","./images/扫一扫.png",2).Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
End With
wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('在产品编号').value=r;asetCodes();}</script>")
.AddInput("生产部门","生产部门","Text").Readonly = True
.AddInput("客户编码","客户编码","Text").Readonly = True
.AddInput("客户名称_父名","客户父名","Text").Readonly = True
.AddInput("客户名称_子名","客户子名","Text").Readonly = True
.AddInput("规格型号","规格","Text").Readonly = True
.AddInput("成品编号","成品编号","Text").Readonly = True
.AddInput("花号","花号","Text").Readonly = True
.AddInput("前道工序","前道工序","Text").Readonly = True
.AddInput("前道制品编号","前道制品编号","Text").Readonly = True
With .AddInputCell("ic1",2) '通过InputCell增加输入框, 2表示突出显示(含图标)
.Attribute = "style='color:green'"
.AddLabel("lmm","前道来数",0) '增加标签,0显示在左边
With .AddInput("前道转入数量","number",1)
.Step="0.01"'增加输入框,1表示显示在中间
.Required = True
End With
End With
With wb.AddListGroup("", "form2","")
.Add("c1","员工产量", "进入","ygcl.htm","")
.Add("c2","物料耗用","进入", "","")
End With
End With
wb.AppendHTML("<script src='./lib/abjaxform.js'></script>") '引入脚本文件
wb.AppendHTML("<script src='./lib/brands.js'></script>")
wb.AppendHTML("<script src='./lib/order.js'></script>") '引入脚本文件
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "submit")
.Add("btn2", "退出","", "scgl.htm").Kind = 2
End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"日期","班次","生产部门","前道工序","工序名称","客户编码","客户名称_父名","客户名称_子名","规格型号","前道制品编号","前道转入数量","前道A字架床号","在产品编号","数量","A字架床号","成品编号","花号","机台号"}
Dim dr As DataRow = DataTables("完工表").AddNew()
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.save()
With wb.AddMsgPage("","msgpage","增加成功","安全生产,争创第一") '生成成功提示页
.AddButton("btn1","继续增加","scwgd.htm")
End With
e.WriteString(wb.Build)
End If
和 wb.AddForm("","form1","ygcl.htm")
With wb.AddInputGroup("form1","ipg1","员工产量录入")
.AddInput("日期","完工日期","date").Value = Date.Today
.AddInput("单号","单号","Text").Readonly = True
.AddInput("生产部门","生产部门","Text").Readonly = True
.AddInput("工序名称","工序名称","Text").Readonly = True
.AddSelect("班次","班次","|日班|夜班")
.AddInput("客户名称_父名","客户父名","Text").Readonly = True
.AddInput("规格","规格","Text").Readonly = True
.AddInput("工位","工位","Text").Readonly = True
.AddInput("姓名","姓名","Text").Readonly = True
With .AddInputCell("ic1") '通过InputCell增加输入框, 2表示突出显示(含图标)
.AddLabel("lmm","产量",0) '增加标签,0显示在左边
With .AddInput("产量","number",1)
.Step="0.01"'增加输入框,1表示显示在中间
.Required = True
End With
.AddImage("pim","./images/提示.png",2)
End With
End With
wb.AppendHTML("<script src='./lib/abjaxform.js'></script>") '引入脚本文件
wb.AppendHTML("<script src='./lib/brands.js'></script>")
wb.AppendHTML("<script src='./lib/order.js'></script>") '引入脚本文件
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "submit")
.Add("btn2", "退出","", "scwgd.htm").Kind = 2
End With
e.WriteString(wb.Build)
怎样实现进入ygcl.htm后能把scwgd.htm的“生产部门”、”客户名称“、”规格“自动带入到ygcl.htm“生产部门”、”客户名称“、”规格“
谢谢老师的指导 ！
加好友 
发短信
Post By：2020/5/9 17:45:00 [显示全部帖子]
