主题：[求助]如何生成二维码？请专家指导

在表A中有“姓名”和“工伤认定编号”两列，现想根据“姓名”和“工伤认定编号”两列，在“识别码”中生成二维码，如何写代码，请指导

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

有点甜，可以使用了，但生成的二维码，用手机扫描后，中文字是乱码，怎么办？

 我测试没问题。中文正常。你手机扫描工具的问题。

明白

将二维码打印到word模板上时，如何引用图片呢，现在是图片名

参考

 

http://www.foxtable.com/webhelp/scr/1299.htm

 

[&列名,宽度,高度]

引用主表某列，以图片的形式显示，例如： [&照片,130,160] 表示引用照片列的内容，并以图片的形式显示，宽度是130，高度是160，单位为磅 如果照片列有多个图片，可以用下面的格式引用指定位置的图片： [&照片&x,100,120] x数个数字，表示图片位置编号，0表示第一个图片，1表示第二个图片。

好的，谢谢

在word模板中引用不行啊[&识别码,120,120]，怎么在word中引用？

识别码列，改成图片列。