Foxtable(狐表)用户栏目专家坐堂 → [求助]移动开发录入问题


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

主题:[求助]移动开发录入问题

帅哥,在线噢!
ymjr2011
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:5151 威望:0 精华:0 注册:2011/6/22 20:16:00
[求助]移动开发录入问题  发帖心情 Post By:2018/3/12 20:09:00 [只看该作者]

基于《一个简单录入界面》,只有一个表单AddInput为 卡号,我是想扫码后,即在card表中增加一行,不需要点击增加和继续增加,扫码后就增加行,请问应该怎么写?  我在PDA中会设置回车操作
[此贴子已经被作者于2018/3/12 20:09:40编辑过]

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


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

例如
.AddInput("xm","户名","text").Attribute = "onkeydown='keyDown()'"

js

function keyDown(){
  if (event.keyCode == 13) {
    ‘其他操作
  }
}

[此贴子已经被作者于2018/3/12 21:33:46编辑过]

 回到顶部
帅哥,在线噢!
ymjr2011
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:5151 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/12 20:53: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('card').focus();</script>")
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form1","card.htm")
            With wb.AddInputGroup("form1","ipg1","卡号资料")
                .AddInput("card","卡号","Text").Attribute=""  
            End With
'以下取消
            'With wb.AddButtonGroup("form1","btg1",True)
            '    .Add("btn1", "确定", "submit")
            'End With
            e.WriteString(wb.Build)
        Else
            Dim nms() As String = {"card"} '不能为空的列名数组 
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页 
                    With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!") 
                        .icon = "Warn" '改变图标
                        .AddButton("btn1","返回").Attribute = ""
                    End With
                    e.WriteString(wb.Build)
                    Return "" '必须返回
                End If
            Next
            nms = New String() {"card"}  '重新定义了nms数组,增加了两列. 
            Dim dr As DataRow = DataTables("cardline").AddNew()
            For Each nm As String In nms
                If e.PostValues.ContainsKey(nm) Then
                    dr(nm) = e.PostValues(nm)
                End If
            Next
            '保存并生成增加成功提示页面
            dr("update") = Date.Today
            dr.save()
            With wb.AddMsgPage("","msgpage","增加成功", "从BI取盘点数据") '生成成功提示页 
                .AddButton("btn1","继续增加","card.htm") 
            End With
            e.WriteString(wb.Build)
        End If
e.WriteString(wb.Build)


是这样改吗?

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


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

论坛屏蔽了一些字符

.AddInput("xm","户名","text").Attribute = "onkeydown='keyDown()'"

 回到顶部
帅哥,在线噢!
ymjr2011
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:5151 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/13 8:13:00 [只看该作者]

版主,JS那完整的应该怎么写?

 回到顶部
帅哥,在线噢!
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
帅哥,在线噢!
ymjr2011
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:5151 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/13 8:57:00 [只看该作者]

现在扫码后card表里面已经增加了一行,目前就是想在不刷新这个页面的同时,继续在本页面扫码,应该怎么去写?

 回到顶部
帅哥,在线噢!
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用ymjr2011在2018/3/13 8:57:00的发言:
现在扫码后card表里面已经增加了一行,目前就是想在不刷新这个页面的同时,继续在本页面扫码,应该怎么去写?

 

ajax请求,认认真真看完

 

http://www.foxtable.com/mobilehelp/scr/0108.htm

 

http://www.foxtable.com/mobilehelp/scr/0101.htm

 

http://www.foxtable.com/mobilehelp/scr/0103.htm

 

http://www.foxtable.com/mobilehelp/scr/0104.htm

 


 回到顶部
帅哥,在线噢!
ymjr2011
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:5151 威望:0 精华:0 注册:2011/6/22 20:16:00
  发帖心情 Post By:2018/3/13 21:26:00 [只看该作者]

看完了都是会弹出这个消息框,我本身就不需要这些。扫码完了以后,card的 input 直接清空,继续扫。

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


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

意思是要使用ajex提交数据到后台,然后直接使用js清空

function setCodes(){
    var result= submitAjaxFileds('card.htm','','card',false);
    if(result){
            document.getElementById("card").value="";
    }
}

 回到顶部
总数 11 1 2 下一页