主题：[求助]移动端input控件

 

你js文件肯定编写不正确。请单独做一个foxtable项目发上来测试。httprequest填入测试代码；和web文件夹一起打包发上。

js文件，请另存为 utf8 的编码。然后参考实例

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test22.zip

1、web文件夹setFocus1.js请拷贝新的覆盖你原来的文件（不是拷贝里面的代码，是拷贝整个js文件）

 

2、参考代码

 

HttpRequest

 

'通用事件头
Dim fl As String = ProjectPath & "web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

'开始生成网页
Select Case e.path
    Case "zxjc.htm"
        Functions.Execute("get_zxjc",e)
        Return
    Case "list_zxjc.htm"
        Functions.Execute("get_zxjc_list",e)
        Return
End Select

 

 

get_zxjc

 

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","list_zxjc.htm")
        With wb.AddInputGroup("form1","ipg1","装箱检测")
            .AddInput("pname","品号","text").Attribute = "onkeydown=""test1()"""
            .AddInput("xh","箱号","text").Attribute = "onkeydown='test2()'"
            .AddInput("th","托号","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
           . Add("btn1", "确定", "button").Attribute = "onclick='form1.submit()'"
        End With

e.WriteString(wb.Build)