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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在excel报表里面加上二维码

共有2409人关注过本帖树形打印复制链接主题：如何在excel报表里面加上二维码

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1505 积分：9756 威望：0 精华：0 注册：2014/12/18 16:12:00

如何在excel报表里面加上二维码 发帖心情

Post By：2019/5/13 11:06:00 [只看该作者]

我需要在excel表格上加上二维码，请教如何才能做到这样呢？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/13 11:18:00 [只看该作者]

参考

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

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

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1505 积分：9756 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2019/5/13 13:55:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:铝巴送货单.zip

If CurrentTable.name = "铝巴送货单"

Dim r As Row = CurrentTable.Rows(i)

For i As Integer = 0 To r - 1

dim bc1 = r("送货单号") & “,” & r("生产piao号一")

bc2 = bc1 & “,” & r("生产piao号一")

bc2 = bc2 & “,” & r("生产piao号一")

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRcode

Bar.Code = "bc2"

Bar.BarWidth = 0.3

Bar.BarHeight = 8

Bar.SaveImage("c:\铝巴送货单.jpg")

end if

我的数据表资料如附页所示。我希望 bar code 的内容的格式是: “送货单号”,"生产piao号一"，"生产piao号一"，"生产piao号一"，"生产piao号一"，"生产piao号一"，"生产piao号一" ......

例如：L20190430-1，04309101632，04309101633，04309101830

上面是我写的，不会写了。需要你的帮忙。送货单号取第一行就可以了，如果"生产piao号一"是重复的，就取一个可以了。请教如何写代码? 谢谢。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/13 14:41:00 [只看该作者]

Dim ls = DataTables("铝巴送货单").GetValues("生产piao号一", "送货单号='123'")
Dim str As String = ""
For Each s As String In ls
str &= "," & s
Next
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRcode
Bar.Code = str.trim(",")
Bar.BarWidth = 0.3
Bar.BarHeight = 8
Bar.SaveImage("c:\铝巴送货单.jpg")

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1505 积分：9756 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2019/5/13 18:17:00 [只看该作者]

第一行 "送货单号='123'" 是什么意思，我看不明白。

我执行之后，出现如下警告：

.NET Framework 版本：2.0.50727.8793

Foxtable 版本：2017.3.18.1

错误所在事件：Excel报表,AfterBuild

详细错误信息：

参数无效。

也就是说，4楼的代码没有生成包含二维码的图形档案，对吗？

我的 excel 报表里面引用二维码图形档案的格式为：[&&c:\铝巴送货单.jpg]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/13 18:20:00 [只看该作者]

请上传具体实例测试。

edisontsui

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

加好友

发短信

等级：七尾狐帖子：1505 积分：9756 威望：0 精华：0 注册：2014/12/18 16:12:00

Post By：2019/5/13 19:27:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.rar

这是实例。

有点蓝

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

加好友

发短信

等级：超级版主帖子：107178 积分：545139 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/5/13 20:14:00 [只看该作者]

代码放到BeforeBuild事件

'铝巴送货单生成二维码
If CurrentTable.name = "铝巴送货单" AndAlso CurrentTable.Current IsNot Nothing
Dim str As String = ""
For Each dh As String In DataTables("铝巴送货单").GetValues("送货单号")
str = str & ";" & dh & "," & DataTables("铝巴送货单").GetComboListString("生产piao号一","送货单号='" & dh & "'").replace("|",",")
Next
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRcode
Bar.Code = str.trim(";")
Bar.BarWidth = 0.3
Bar.BarHeight = 8
Bar.SaveImage("c:\铝巴送货单.jpg")
End If