- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何用变量获取网络扫码的条码内容？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179822)
-- 发布时间：2022/9/12 23:31:00
-- 如何用变量获取网络扫码的条码内容？
针对以下链接所述问题：
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
里面的值？
-- 发布时间：2022/9/13 8:51:00
--
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);
}
-- 发布时间：2022/9/13 23:34:00
-- 再求教专家ajaxform函数调用问题
再请求教专家！
由于一段没有练习类似语句，完全不知道应该如何组合了以下语句了！
由于一段没有练习类似语句，完全不知道应该如何组合了以下语句了！
一、主程序调用语句段：
\'------插入扫描码语句开始
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编辑过]
-- 发布时间：2022/9/14 8:48:00
--
一、主程序调用语句段：
\'------插入扫描码语句开始
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
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")
-- 发布时间：2022/9/14 19:16:00
-- 再求教專家帮确认下
再请帮确认下，我用下面語句手机能扫描，也能听到扫描声音，
但就是这语：.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
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编辑过]
-- 发布时间：2022/9/15 8:55:00
--
增加文本输入框的语法为：
AddInput(ID, Label, type)
| ID | 输入框ID,注意生成网页时，WeUI会自动将所有ID转换为小写，例如"Table1"或转换为"table1"，今后不再重复提示，大家请自行留意。 |
| Label | 在输入框左侧显示的标签内容 |
| Type | 输入框类型，普通文本输入框设置为"text"，密码输入框设置为"password" |