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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何保存生成的二维码？

共有3272人关注过本帖树形打印复制链接主题：如何保存生成的二维码？

Bin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/11 10:20:00 [显示全部帖子]

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("表A").Rows
bar.Code = r("第一列")
bar.SaveImage("d:\" & r("第一列") & ".jpg")
Next

这样保存二维码

如果你要生成报表,说明要生成怎么样的报表

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/11 10:30:00 [显示全部帖子]

你的列不能有空值否则你文件名就成了 .jpg 空的文件名系统识别不了

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("表A").Rows

if r.isnull("第一列")=false then
bar.Code = r("第一列")
bar.SaveImage("d:\" & r("第一列") & ".jpg")

end if
Next

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/11 11:30:00 [显示全部帖子]

If FileSys.FileExists("c:\fox.jpg") Then
Messagebox.Show("文件已经存在！","提示")
Else
Messagebox.Show("文件不存在或已经被删除！","提示")
End If

http://www.foxtable.com/help/topics/0337.htm

先判断一下文件是否已经存在

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/2/11 11:32:00 [显示全部帖子]

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("表A").Rows

if r.isnull("第一列")=false then
bar.Code = r("第一列")

If FileSys.FileExists("d:\" & r("第一列") & ".jpg") Then

FileSys.Delete("d:\" & r("第一列") & ".jpg")

end if
bar.SaveImage("d:\" & r("第一列") & ".jpg")

end if
Next

下一主题 >> << 上一主题

主题：如何保存生成的二维码？