如下代码:
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddForm("","form1","CheckPd.htm") ' .Attribute="" ' 由CheckPd接收提交的数据
With wb.AddInputGroup("form1","ipg1","设备资料")
.AddInput("AssetNumber","资产编号","Text") '前一个"AssetNumber"是ID,后一个"资产编号"是标题
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1","确定","button").Attribute="" 'button千万不能写成submit,否则就会造成数据提交两遍
End With
'存在重复盘点记录时,给出是否重新盘点的提示.
With wb.AddDialog("","dlg4", "重新盘点确认","您确定要对当前设备重新盘点吗?")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","确定","./CheckPd.htm?AssetNumber=" & AssetNumber.value ) '在此处想把控件ASsetNumber 的值做为get参数传递给下一页,请问要怎么获取用户输入的AssetNumber值??
End With
wb.AppendHTML("<script src='./ajax/libs/pdScan.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
[此贴子已经被作者于2019/1/2 10:07:47编辑过]