- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何生成二维码？请专家指导 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108312)
-- 发布时间：2017/10/20 8:31:00
-- [求助]如何生成二维码？请专家指导
在表A中有“姓名”和“工伤认定编号”两列，现想根据“姓名”和“工伤认定编号”两列，在“识别码”中生成二维码，如何写代码，请指导
例子：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2017/10/20 8:47:00
--
datacolchanged事件
Select Case e.DataCol.name
Case "姓名","工伤认定编号"
If e.DataRow.IsNull("姓名") OrElse e.DataRow.IsNull("工伤认定编号") Then
e.DataRow("识别码") = Nothing
Else
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
bar.Code = e.DataRow("姓名") & "-" & e.DataRow("工伤认定编号")
bar.SaveImage(projectpath & "attachments/" & e.DataRow("_Identify") & ".jpg")
e.DataRow("识别码") = e.DataRow("_Identify") & ".jpg"
End If
End Select
-- 发布时间：2017/10/20 9:13:00
--
有点甜，可以使用了，但生成的二维码，用手机扫描后，中文字是乱码，怎么办？
-- 发布时间：2017/10/20 9:17:00
--
我测试没问题。中文正常。你手机扫描工具的问题。
-- 发布时间：2017/10/20 9:24:00
--
明白
-- 发布时间：2017/10/20 9:27:00
--
将二维码打印到word模板上时，如何引用图片呢，现在是图片名
-- 发布时间：2017/10/20 9:34:00
--
参考
http://www.foxtable.com/webhelp/scr/1299.htm
| [&列名,宽度,高度] | 引用主表某列，以图片的形式显示，例如：
[&照片,130,160] 表示引用照片列的内容，并以图片的形式显示，宽度是130，高度是160，单位为磅 如果照片列有多个图片，可以用下面的格式引用指定位置的图片： [&照片&x,100,120] x数个数字，表示图片位置编号，0表示第一个图片，1表示第二个图片。 |
-- 发布时间：2017/10/20 9:39:00
--
好的，谢谢
-- 发布时间：2017/10/20 10:03:00
--
在word模板中引用不行啊[&识别码,120,120]，怎么在word中引用？
-- 发布时间：2017/10/20 10:04:00
--
识别码列，改成图片列。