Foxtable(狐表)用户栏目专家坐堂 → HBuider扫码与submitAjaxFileds


  共有506人关注过本帖树形打印复制链接

主题:HBuider扫码与submitAjaxFileds

帅哥哟,离线,有人找我吗?
石四
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:708 积分:4983 威望:0 精华:0 注册:2013/3/31 10:33:00
HBuider扫码与submitAjaxFileds  发帖心情 Post By:2018/10/18 13:52:00 [只看该作者]

Select Case e.path
    Case "prod.htm"
        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.AddForm("","form1","prod.htm")
        With wb.AddInputGroup("form1","ipg1","现场盘点")
            Dim UserName As String = e.Cookies("username")  '从cookie中获取用户名
            Dim Val3 As String = DecryptText(UserName,"123","123") '解密,两个密钥必须和加密的时候
            Dim Val4 As Date = Date.today
            .AddHiddenValue("date",Val4)
            .AddHiddenValue("statistics",Val3)
            ' .AddInput("图号","图号","Text")
            With .AddInput("code","图号","")
                .Attribute = "" '调用js函数
            End With
            .AddInput("product","名称","Text")
            .AddInput("classify","类别","Text")
            .AddInput("number","数量","Number")
            .AddInput("remarks","备注","Text")
        End With
        
        With wb.AddButtonGroup("form1","btg1",False)
            .Add("btn1", "确定", "submit")
            .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
            .Add("btn1", "返回", "button").Attribute = ""
        End With
        wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('code').value=r;}</script>")
        
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)
        
    Case "getCodes.htm" 
        Dim y As Integer = Date.Today.Year
        Dim m As Integer = Date.Today.Month
        Dim mt As New Date(y, m, 1)
        Dim cmd As New SQLCommand
        Dim dt As DataTable
        Dim cr As DataRow
        cmd.C
        cmd.CommandText = "Select * Fr om {期初表} Where 日期 = #" & mt & "# "
        dt = cmd.ExecuteReader
        Dim dr As DataRow = dt.Find("零件图号='" & e.Values("code") & "'")
        If dr IsNot Nothing Then
            e.WriteString(dr("零件名称") & "|" & dr("备注"))
        End If
End Select
---------------------
手动输入图号有效,扫二维输入图号没有动静,如何触发?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:72502 积分:363620 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/18 14:59:00 [只看该作者]

在红色地方调用js代码ajax访问后台返回数据

 

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('code').value=r;这里调用js代码}</script>")


 回到顶部
帅哥哟,离线,有人找我吗?
石四
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:708 积分:4983 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2018/10/19 14:43:00 [只看该作者]


wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('code').value=r;onchange='setCodes()'}</script>")

是这么用onchang吗?但是还是没有动静

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/19 14:56:00 [只看该作者]

又不是控件,onchang啥。

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('code').value=r;setCodes();}</script>")

 回到顶部
帅哥哟,离线,有人找我吗?
石四
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:708 积分:4983 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2018/10/19 15:31:00 [只看该作者]

哦,好了,又学会一招,谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
石四
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:708 积分:4983 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2018/10/20 14:24:00 [只看该作者]

为什么setCodes()放到项目里就触发不了呢?单个网页是可以,通过登记页面进入主页,再进入下一页面就失效了,控件那里手动input编码也没动静

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/20 14:49:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
石四
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:708 积分:4983 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2018/10/20 15:12:00 [只看该作者]

Select Case e.path
    Case "prod.htm"
        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.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        If e.PostValues.Count = 0 Then .................

引入了呀

 回到顶部
帅哥哟,离线,有人找我吗?
石四
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:708 积分:4983 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2018/10/20 15:15:00 [只看该作者]

直接测试prod.htm这个页面正常的,套进主页就不行

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:23372 积分:119198 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/20 15:21:00 [只看该作者]

怎么套的?贴出完整代码

 回到顶部
总数 30 1 2 3 下一页