pdscan.htm 代码改成如下：
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,后一个"资产编号"是标题
.AddInput("AssetNumber","资产编号","Text").Attribute=""
.AddHidenValue("test","test")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btnOK","确定","button").Attribute="" 'button千万不能写成submit,否则就会造成数据提交两遍
'.Add("btnOK","继续","./CheckPd.htm?AssetNumber=" & "172.16.5.1" )
End With
'存在重复盘点记录时,给出是否重新盘点的提示.
With wb.AddDialog("","dlg4", "重新盘点确认","您确定要对当前设备重新盘点吗?")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","继续","./CheckPd.htm?AssetNumber=" & e.Cookies("AssetNumber") )
' .AddButton("btnOK","继续","./CheckPd.htm?AssetNumber=" & "'pdJumpFunction()'" )
End With
wb.InsertHTML("<script>assetnumber.focus(); </script>")
wb.AppendHTML("<script src='./ajax/libs/pdScan.js'></script>") '引入脚本文件
' wb.AppendHTML("<script src='./ajax/libs/pdJump.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
pdscan.js 代码如下：
//发送JSON对象
function pdScanFunction()
{
var result = submitAjaxForm('form1','',false); //false 表示同步执行
//如果正确跳出验证对话框，确定后转目标网页 如果不正确，则跳出对话框停留在该页。
if (result =='exist') //查到重复盘点记录
{
showDialog('dlg4','!!!警告!!!','发现存在重复盘点记录！');
// show('dlg4')
return false; //停止执行，返回false
}
else //可以正常记录盘点结果
{
location = "/CheckPd.htm?AssetNumber=" + result;
return true;
}
}
function InputEnter()
{
var keynum
var keychar
var numcheck
if(window.event) // IE
{
keynum = e.keyCode
}
else if(e.which) // Netscape/Firefox/Opera
{
keynum = e.which
}
//keychar = String.fromCharCode(keynum)
if (keynum=='13')
{
var result = submitAjaxForm('form1','',false); //false 表示同步执行
//如果正确跳出验证对话框，确定后转目标网页 如果不正确，则跳出对话框停留在该页。
if (result =='exist') //查到重复盘点记录
{
showDialog('dlg4','!!!警告!!!','发现存在重复盘点记录！');
// show('dlg4')
return false; //停止执行，返回false
}
else //可以正常记录盘点结果
{
location = "/CheckPd.htm?AssetNumber=" + result;
return true;
}
}
但按回车似乎没反应啊，哪里写错了？
[此贴子已经被作者于2019/1/3 16:13:51编辑过]
加好友 
发短信
Post By：2019/1/3 9:42:00 [显示全部帖子]
此主题相关图片如下：1.png
