保存二维码图片时为何显示非法路径？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

For Each r As Row In Tables("生产指令单_明细").Rows

bar.Code = "产品编码: " & r("产品编码") & vbCrlf & "订单编号:" & r("订单编号") & vbCrlf & " 生产数量:" & r("生产数量") & vbCrlf & " 物料编码:" & r("物料编码")

bar.SaveImage(ProjectPath & "Images\test.wmf",300)

Dim imgback As image = getimage(ProjectPath & "Images\test.wmf") '生成的二维码图片

Dim bmp As new bitmap(imgback.width, imgback.height)

Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bmp)

g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height)

Dim img = getimage(ProjectPath & "Images\ABC_Log.jpg") '准备添加的logo

Dim x As Integer = (imgback.width - img.width) / 2 'Logo在二维码中的位置

Dim y As Integer = (imgback.height - img.height) / 2

g.DrawImage(img, x, y, img.Width, img.Height) '合并图片

bmp.Save(ProjectPath & "Images\001.jpg")

bmp.Save(ProjectPath & "Images\" & r("产品编码") & ".jpg")

bmp.dispose

上述代码，蓝色的运行就没问题，但采用表中每行动态的产品编码生成图片名称时就出错，显示非法路径，为什么？

谢谢！

msgbox(ProjectPath & "Images\" & r("产品编码") & ".jpg")出错前最后弹出什么内容？

一般是产品编码"没有数据，或者有无法识别的特殊字符

[此贴子已经被作者于2022/1/17 20:35:08编辑过]

果然是因为字符的原因，我的产品编码是：J42002-∮5*7.7*∮3.08-ZnNi

中间的*换成X就可以了，但是问题原来所有的编码都是用规格生成的，里面都有*号，还有其他办法吗？

谢谢！

没有办法，这个是操作系统的限制。

另外请教下

此主题相关图片如下：扫码.jpg

在keyDownEdit事件中用了下面的代码也不能阻止扫码的内容录入

If e.Col.Name = "产品编码" Then

If e.keycode = keys.enter Then

msgbox(e.text)'根据扫描结果做其它处理即可

e.cancel = True

End If

就是想根据二维码原来是多列组合在一起，扫码时如何拆分原来组合的各列然后填充到不同的列中

谢谢！

到datacolchanging事件处理

主题：保存二维码图片时为何显示非法路径？