- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 点扫描可以扫二维码，但点统计不出来查询表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157726)
-- 发布时间：2020/10/27 8:01:00
-- 点扫描可以扫二维码，但点统计不出来查询表
如题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:html5-qrcode.min.rar |
-- 发布时间：2020/10/27 8:43:00
--
贴出自己的代码
-- 发布时间：2020/10/27 8:48:00
--
附件中有代码，便于测试。
[此贴子已经被作者于2020/10/27 8:49:03编辑过]
-- 发布时间：2020/10/27 8:52:00
--
附件是别人组件的代码，没有意义，请贴出自己的代码
-- 发布时间：2020/10/27 8:57:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddForm("","form1","test")
wb.AppendHTML("<script src=\'./lib/html5-qrcode.min.js\'></script>",True) \'引入脚本文件
With wb.AddInputGroup("form1","ipg1","销售统计")
.AddInput("cp","产品","text")
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("scan", "扫码", "button").Attribute= "" \'调用开始扫码的js函数
.Add("btn2", "统计", "button").Attribute= ""
End With
wb.InsertHTML("<div id=""reader"" width=""300px""></div>")
wb.InsertHTML("<div id=\'p1\' style=\'margin:0.5em\'></div>") \'插入一个div,用于显示服务器返回的查询结果
wb.AppendHTML("<script src=\'./lib/scan.js\'></script>") \'引入脚本文件
\'wb.AppendHTML("<script>let html5QrcodeScanner = new Html5QrcodeScanner(\'reader\', { fps: 10, qrbox: 250 } , true);</script>" ) \'引入脚本文件
wb.AppendHTML("<script>const html5QrCode = new Html5Qrcode( ""reader"");</script>" ) \'初始化二维码对象,绑定id为"reader"的div控件
e.WriteString(wb.Build)
-- 发布时间：2020/10/27 8:59:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
MessageBox.Show(1)
If e.PostValues.ContainsKey("cp") Then
Dim cmd As new sqlco\\mmand
cmd.commandtext="sel\\ect 第一列 from {表A} where 第一列=\'" & e.PostValues("cp") & "\'"
Dim dt As DataTable = cmd.Ex\\ecuteReader()
wb.AddTable("","Table1").Crea\\teFromDataTable(dt)
Else
wb.InsertHTML("产品!")
End If
e.WriteString(wb.Build)
-- 发布时间：2020/10/27 9:06:00
--
代码不完整
With wb.AddButtonGroup("form1","btg1",False)
.Add("scan", "扫码", "button").Attribute= "" \'调用开始扫码的js函数
.Add("btn2", "统计", "button").Attribute= ""
End With
另外请贴出scan.js代码
-- 发布时间：2020/10/27 9:17:00
--
scan.js代码不能上传，附件中的代码很完整的。
此主题相关图片如下：无标题.png
-- 发布时间：2020/10/27 9:26:00
--
直接把scan.js文件发上来，1楼附件没看到有scan.js和您自己的代码
-- 发布时间：2020/10/27 9:39:00
--
还有，哪个代码调用内部函数test?
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.rar |