以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何保存生成的二维码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64327)
--  作者：lihe60
--  发布时间：2015/2/11 10:13:00
--  如何保存生成的二维码？

Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("表A").Rows
    bar.Code = r("第一列")
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    rg.Style.Spacing.All = 3
    bar.SaveImage("d:\\" & r("第一列") & ".jpg")
Next
--  作者：有点甜
--  发布时间：2015/2/11 10:18:00
--  
 什么意思？你想问怎么保存生成的报表？
--  作者：Bin
--  发布时间：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

这样保存二维码

如果你要生成报表,说明要生成怎么样的报表
--  作者：lihe60
--  发布时间：2015/2/11 10:24:00
--  

就是随机生成的二维码保存到某个指定的路径
--  作者：lihe60
--  发布时间：2015/2/11 10:27:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：未命名.gif
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2015/2/11 10:29:00
--  
 你第一列有空值，自然不行。代码没问题
--  作者：Bin
--  发布时间：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
--  作者：lihe60
--  发布时间：2015/2/11 10:30:00
--  

果真是的，删除空行就行了。
--  作者：lihe60
--  发布时间：2015/2/11 11:07:00
--  

这又是什么原因？


图片点击可在新窗口打开查看此主题相关图片如下：未命名.gif
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/2/11 11:19:01编辑过]
--  作者：有点甜
--  发布时间：2015/2/11 11:12:00
--  
以下是引用lihe60在2015/2/11 11:07:00的发言：

这又是什么原因？

[此贴子已经被作者于2015/2/11 11:07:28编辑过]

 

什么意思