Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复杂的二维码提取信息


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

主题：复杂的二维码提取信息
帅哥哟，离线，有人找我吗？
石四
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/24 15:59:00 [只看该作者]

还不会这种用法，学习。

 回到顶部
帅哥哟，离线，有人找我吗？
rambowhuang
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1462 威望：0 精华：0 注册：2013/11/7 17:13:00 		  发帖心情 Post By：2019/7/24 20:58:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：fox-1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：fox-2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：fox-3.jpg
图片点击可在新窗口打开查看

解析json
Dim jsonStr=e.Form.Controls("TextBox1").value
Dim jo As JObject = JObject.Parse(jsonStr)
e.Form.Controls("TextBox2").value=jo("D").Tostring

Dim ja As JArray = jo("I")
Dim msg As String=""
For i As Integer = 0 To ja.Count - 1
    Dim jo2 As JObject =ja(i)
    msg & = jo2("I").Tostring & " > " & jo2("N").Tostring & " > " & jo2("P").Tostring  & vbCrLf
Next
e.Form.Controls("TextBox3").value=msg
 回到顶部
帅哥哟，离线，有人找我吗？
rambowhuang
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：154 积分：1462 威望：0 精华：0 注册：2013/11/7 17:13:00 		  发帖心情 Post By：2019/7/24 21:00:00 [只看该作者]

解析json:

Dim jsonStr=e.Form.Controls("TextBox1").value
Dim jo As JObject = JObject.Parse(jsonStr)
e.Form.Controls("TextBox2").value=jo("D").Tostring

Dim ja As JArray = jo("I")
Dim msg As String=""
For i As Integer = 0 To ja.Count - 1
    Dim jo2 As JObject =ja(i)
    msg & = jo2("I").Tostring & " > " & jo2("N").Tostring & " > " & jo2("P").Tostring  & vbCrLf
Next
e.Form.Controls("TextBox3").value=msg
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/25 8:56:00 [只看该作者]

有办法实现扫码完成后自动执行代码不？把代码写在TextBox控件TextChanged事件，扫进第一个字符就会触动代码导致报错。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106700 积分：542695 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/25 9:44:00 [只看该作者]

放到valueChanged事件。

如果扫描枪扫描后自带回车结束符，可以在keydown事件判断是回车符就执行对应的代码
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/25 10:37:00 [只看该作者]

扫码枪不带回车符。
在valueChanged事件写入
Dim btn As WinForm.Button = Forms("test").Controls("Button1")
btn.PerformClick()
扫码结束后没有动静，需要选择任意一个控件才有反应。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106700 积分：542695 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/25 11:20:00 [只看该作者]

正常扫描枪都可以设置添加一个结束符的，如果没有，只能是扫描后自己按一下回车

 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/25 13:17:00 [只看该作者]


帅哥哟，离线，有人找我吗？学会了，谢谢rambowhuang的指点。

Dim jsonStr=e.Form.Controls("TextBox1").value
Dim jo As JObject = JObject.Parse(jsonStr)
e.Form.Controls("Label1").text=jo("W").Tostring

Dim ja As JArray = jo("I")
Dim msg0 As String=""
Dim msg1 As String=""
For i As Integer = 0 To ja.Count - 1
    Dim jo2 As JObject =ja(i)
    msg0  = jo2("I").Tostring
    msg1  = jo2("N").Tostring
    Tables("test_Table1").AddNew()
    Dim r As Row = Tables("test_Table1").Current
    r("第一列") = msg0
    r("第二列") = msg1
Next
 回到顶部
总数 28 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询