专家坐堂-[求助]移动开发录入问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]移动开发录入问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115695)

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

--  作者：有点蓝
--  发布时间：2018/3/12 20:43:00
--
例如
.AddInput("xm","户名","text").Attribute = "onkeydown=\'keyDown()\'"

js

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

http://www.w3school.com.cn/jquery/event_keydown.asp

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

--  作者：ymjr2011
--  发布时间：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)

是这样改吗？

--  作者：有点蓝
--  发布时间：2018/3/12 21:35:00
--
论坛屏蔽了一些字符

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

--  作者：ymjr2011
--  发布时间：2018/3/13 8:13:00
--
版主，JS那完整的应该怎么写？

--  作者：有点甜
--  发布时间：2018/3/13 8:44:00
--

function keyDown(){

　　if (event.keyCode == 13) {

　　　　‘提交表单，如

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
--  发布时间：2018/3/13 8:57:00
--
现在扫码后card表里面已经增加了一行，目前就是想在不刷新这个页面的同时，继续在本页面扫码，应该怎么去写？

--  作者：有点甜
--  发布时间：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
--  发布时间：2018/3/13 21:26:00
--
看完了都是会弹出这个消息框，我本身就不需要这些。扫码完了以后，card的 input 直接清空，继续扫。

--  作者：有点蓝
--  发布时间：2018/3/13 21:38:00
--
意思是要使用ajex提交数据到后台，然后直接使用js清空
例如:http://www.foxtable.com/mobilehelp/scr/0103.htm

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