- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]关于二维码报表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117728)
-- 发布时间：2018/4/18 11:29:00
-- [讨论]关于二维码报表
此主题相关图片如下：二维码.bmp
如果我要完成这样的一个报表，是不是要把帮助文件的专业报表看一遍？
-- 发布时间：2018/4/18 11:36:00
--
方法一
http://www.foxtable.com/webhelp/scr/1590.htm
http://www.foxtable.com/webhelp/scr/1948.htm
方法二
http://www.foxtable.com/webhelp/scr/1925.htm
方法三
http://www.foxtable.com/webhelp/scr/2890.htm
方法四
http://www.foxtable.com/webhelp/scr/1949.htm
http://www.foxtable.com/webhelp/scr/2093.htm
-- 发布时间：2018/4/18 16:31:00
--
目前来说方法三是最适合的，我也做了一下，但是我有几个问题
-- 发布时间：2018/4/18 16:41:00
--
1、任何表格都可以，窗口sqlTable的表名是 窗口名_Table名
2、认认真真看【实例五】
-- 发布时间：2018/4/18 17:04:00
--
生成报表就会卡死整个foxtable
-- 发布时间：2018/4/18 18:21:00
--
生成报表就会卡死整个foxtable
你需要卸载重新安装ms office，必须安装完整版本的ms office
-- 发布时间：2018/4/19 8:41:00
--
如果是这样子，那我做完这个系统，移植到别的电脑上面执行，其他电脑也要有ms office吗？
-- 发布时间：2018/4/19 8:44:00
--
需要安装ms office，才能使用 word、excel 报表。
窗口报表、专业报表，不需要安装ms office
-- 发布时间：2018/4/19 11:25:00
--
我在窗口中显示报表，代码如下
此主题相关图片如下：报表.png
它都会提示这个未将对象引用
-- 发布时间：2018/4/19 11:43:00
--
改成这样，如果还有问题，上传具体实例测试
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wbr.AddRess = ""
Dim tm As String = projectpath & "Attachments\\条码.doc"
Dim f1 As String = ProjectPath & "Reports\\条码.doc"
Dim mg As String = ProjectPath & "Images\\二维码.wmf" \'约定的图片文件
Dim tab As WinForm.Table = Forms("装箱单资料维护").Controls("明细表")
Dim wrt As new wordreport(tab.Table,tm,f1)
For Each r As Row In tab.table.Rows \'逐行生成报表
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.QRCodeModuleSize = 2 \'二维码的放大倍数
Bar.Code ="NO:" & r("装箱单ID") & vbcrlf & "项目号:" & r("项目号") & vbcrlf & "数量:" & r("数量") & vbcrlf & "物料编号:" & r("物料编号") & vbcrlf & "规格:" & r("规格")
bar.SaveImage(mg,300)
wrt.BuildOne(r)
Next
wrt.Build()
wrt.Quit()
wbr.AddRess = f1