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


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

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


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/24 14:10:00 [显示全部帖子]

textbox控件最大长度3万多，理论上怎么也够了。通过扫描枪还是被截断。

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


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/24 14:14:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_99.png
图片点击可在新窗口打开查看
备注型单元格完整的字符串
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/24 14:27:00 [显示全部帖子]

好奇怪！在另外项目窗口插入一个文本框试，能扫出完整字符。
这个要应用的项目窗口里，删了前面的文本框再添加一个新文本框试，扫出比正常多的字符，且每次都不相同。
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/24 14:32:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_88.png
图片点击可在新窗口打开查看
正常的

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_77.png
图片点击可在新窗口打开查看
这个不正常。
同一二维码图形扫出来的。两个都是多行文本框
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/24 14:40:00 [显示全部帖子]

这个异常和项目有关，诡异！
把那个正常的窗口转到这个项目试，就不正常，扫出大量字符！
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/7/24 14:46:00 [显示全部帖子]

项目重新打开后正常了，匪夷所思！

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


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

还不会这种用法，学习。

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()
扫码结束后没有动静，需要选择任意一个控件才有反应。
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
总数 21 上一页 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.05469 秒, 5 次数据查询