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


  共有3269人关注过本帖树形打印复制链接

主题：如何保存生成的二维码？
帅哥哟，离线，有人找我吗？
lihe60
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00 		如何保存生成的二维码？  发帖心情 Post By：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

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 10:18:00 [只看该作者]

 什么意思？你想问怎么保存生成的报表？

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

这样保存二维码

如果你要生成报表,说明要生成怎么样的报表
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2015/2/11 10:24:00 [只看该作者]

就是随机生成的二维码保存到某个指定的路径
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2015/2/11 10:27:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：未命名.gif
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 10:29:00 [只看该作者]

 你第一列有空值，自然不行。代码没问题

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2015/2/11 10:30:00 [只看该作者]

果真是的，删除空行就行了。
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2015/2/11 11:07:00 [只看该作者]

这又是什么原因？


图片点击可在新窗口打开查看此主题相关图片如下：未命名.gif
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/2/11 11:19:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/2/11 11:12:00 [只看该作者]

以下是引用lihe60在2015/2/11 11:07:00的发言：

这又是什么原因？

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

 

什么意思
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询