如何用变量获取网络扫码的条码内容？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

针对以下链接所述问题：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=836047&ID=124316&skin=1

我也能看到下面这一句返回的内容。

' wb.InsertHTML("<script>Function scaned( t, r, f ) {plus.nativeUI.alert('扫描返回的信息如:\n编码:' + t + '\n内容:' + r + '\n图片存放路径(在手机端):' + f);}</script>")

请教专家：

应该如何写语句来接收到：条码内容 r 里面的值？

function scaned( t, r, f ) {

var 变量a = r;

//如果是要提交数据，参考：http://www.foxtable.com/mobilehelp/topics/0108.htm

sendAjaxText(变量a,"accept.htm","",false);

plus.nativeUI.alert('扫描返回的信息如:\n编码:' + t + '\n内容:' + r + '\n图片存放路径(在手机端):' + f);

}

再请求教专家！
由于一段没有练习类似语句，完全不知道应该如何组合了以下语句了！

一、主程序调用语句段：

'------插入扫描码语句开始

With .AddInputCell("ic01")

.AddLabel("lbh01", "条码:", 0)

.AddInput("lCode", "text", 1)

.AddVcodeButton("item_scan", "扫码", 2).Attribute = "o#n#c lick='g e t Scan()'"

End With

'------插入扫描码语句结束

二、ajaxform.js 语句

function getScan(){

var result = sendAjaxText("lCode","CreateScan.htm","",false);

document.getElementById("lCode").innerHTML=result;

}

三、被调用网页的函数语句

'--这个被调用的CreateScan扫码函数完全不知道应该怎么组合语句了

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim path As String = "foxtableAppTest"

Dim lCode As String

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)

' .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""

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

e.WriteString(lCode) '生成网页

请求专家直接赐教語句，感谢！感谢呀！

目的就是把扫描到的条码内容放入 lCode 变量，并回传到应用字段中去。

[此贴子已经被作者于2022/9/13 23:40:50编辑过]

一、主程序调用语句段：

'------插入扫描码语句开始

With .AddInputCell("ic01")

.AddLabel("lbh01", "条码:", 0)

.AddInput("lcode", "text", 1)

.AddVcodeButton("item_scan", "扫码", 2).Attribute = "onclick=""clicked('" & path & "/plus/barcode_scan.html',true,true);"""

End With

'------插入扫描码语句结束

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.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('lcode').value=r;sendAjaxText(r,"CreateScan.htm","",false);}</script>")

二、不需要第二段代码

三、被调用网页的函数语句

'--这个被调用的CreateScan扫码函数完全不知道应该怎么组合语句了

Dim e As RequestEventArgs = args(0)

dim r as row = tables("表A").addnew

r("条码") =e.PlainText

e.WriteString("OK")

再请帮确认下，我用下面語句手机能扫描，也能听到扫描声音，

但就是这语：.AddInput("lcode", "text", 1) 里面看不到条码内容。

不知道错误在哪里？

'------插入扫描码语句开始

With .AddInputCell("ic01")

.AddLabel("lbh01", "条码:", 0)

.AddInput("lcode", "text", 1) 《---刚刚用手机测试能扫描，但这个变量 lCode 还是没有得到值？

.AddVcodeButton("item_scan", "扫码", 2).Attribute = "onclick=""clicked('" & path & "/plus/barcode_scan.html',true,true);"""

End With

'------插入扫描码语句结束

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.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('lcode').value=r;sendAjaxText(r,"CreateScan.htm","",false);}</script>")

----同时有注意：CreateScan.htm是乎没有被调用，因为"表A"的"条码"字段中也没有任何值;

附件內容為扫描函数代码;

下载信息 [文件大小：下载次数： ]
点击浏览该文件:gx_scan.txt

-------------------------------

[此贴子已经被作者于2022/9/14 21:32:29编辑过]

增加文本输入框的语法为：

AddInput(ID, Label, type)

ID	输入框ID,注意生成网页时，WeUI会自动将所有ID转换为小写，例如"Table1"或转换为"table1"，今后不再重复提示，大家请自行留意。
Label	在输入框左侧显示的标签内容
Type	输入框类型，普通文本输入框设置为"text"，密码输入框设置为"password"

主题：如何用变量获取网络扫码的条码内容？