以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]移动端input控件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115774)
--  作者：ymjr2011
--  发布时间：2018/3/14 13:26:00
--  [求助]移动端input控件
        With wb.AddInputGroup("form1","ipg1","装箱检测")
            .AddInput("pname","品名","text").Attribute="" 
            .AddInput("ph","批号","text")
            .AddInput("lh","料号","text")
        End With


function gb(){
document.getElementById("ph").focus()
}

进入页面后，pname获取焦点，然后扫码后pname的值为扫码后的值，然后ph获得焦点，但现在问题是扫码后虽然跳转到ph上了，但pname.value清空了，好像页面又加载了一次，我在PDA中设置了自动回车换行，请问应该怎么改下？
--  作者：有点甜
--  发布时间：2018/3/14 14:49:00
--  
请贴出完整的全部代码，如果贴出来一些字符不见了，请使用txt文件上传上来查看。
--  作者：ymjr2011
--  发布时间：2018/3/14 15:08:00
--  
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<script src=\'http://res.wx.qq.com/open/js/jweixin-1.2.0.js\'></script>",True) \'引入JS-SDK库
        wb.AppendHTML("<script src=\'./lib/jssdk.js\'></script>") \'引入脚本文件
        wb.AppendHTML("<script src=\'./lib/setFocus1.js\'></script>")
        \'wb.AppendHTML("<script>document.getElementById(\'pname\').focus();</script>")
        wb.AddForm("","form1","zxjc.htm")
        With wb.AddInputGroup("form1","ipg1","检测")
            .AddInput("pname","品名","text").Attribute=""o nc hange=\'g b()\'" " 
            .AddInput("ph","批号","text")
            .AddInput("lh","料号","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With

e.WriteString(wb.Build)
[此贴子已经被作者于2018/3/14 15:08:53编辑过]
--  作者：ymjr2011
--  发布时间：2018/3/14 15:37:00
--  
如何禁止所有的input 回车就提交表单
--  作者：有点甜
--  发布时间：2018/3/14 15:42:00
--  
       With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With

 

改成

 

       With wb.AddButtonGroup("form1","btg1",True)

            .Add("btn1", "确定", "button").Attribute = "onclick=\'form1.submit()\'"
        End With
--  作者：ymjr2011
--  发布时间：2018/3/14 17:45:00
--  
解决了每个表单都提交的问题了，就是不跳转到下一个input上面(xh,ph)未获取焦点
--  作者：有点甜
--  发布时间：2018/3/14 18:46:00
--  
以下是引用ymjr2011在2018/3/14 17:45:00的发言：
解决了每个表单都提交的问题了，就是不跳转到下一个input上面(xh,ph)未获取焦点

 

你绑定的是 onchang 事件，你应该要绑定的是 onkeydown 事件吧？按下回车之后，焦点离开。

 

 
--  作者：ymjr2011
--  发布时间：2018/3/14 19:03:00
--  
我改成onkeydown也没反应
--  作者：有点甜
--  发布时间：2018/3/14 20:57:00
--  

js那里首尾加入alert(123)看能否正常弹出，如果不能正常弹出说明你写的js代码有问题，或者是你绑定的事件有问题。

 

请贴出全部可以执行的代码。或者做个实例发上来测试。
--  作者：ymjr2011
--  发布时间：2018/3/15 12:58:00
--  
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<script src=\'http://res.wx.qq.com/open/js/jweixin-1.2.0.js\'></script>",True) \'引入JS-SDK库
wb.AppendHTML("<script src=\'http://cdn.static.runoob.com/libs/jquery/1.10.2/jquery.min.js\'></script>") \'引入jQuery库
        wb.AppendHTML("<script src=\'./lib/jssdk.js\'></script>") \'引入脚本文件
        wb.AppendHTML("<script src=\'./lib/setFocus1.js\'></script>")
        wb.AppendHTML("<script>document.getElementById(\'pname\').focus();</script>")
        wb.AddForm("","form1","zxjc.htm")
        With wb.AddInputGroup("form1","ipg1","检测")
            .AddInput("pname","品号","text").Attribute="o nke ydown=\'gb()\'" 
            .AddInput("ph","批号","text")\'.attribute ="o n focus=\'ff()\'"
            .AddInput("xh","箱号","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
           . Add("btn1", "确定", "button").Attribute = ""
        End With

e.WriteString(wb.Build)

function keyDown(){
document.getElementById("ph").focus()
}