主题：[讨论]关于二维码报表

方法一

 

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

 

1、任何表格都可以，窗口sqlTable的表名是 窗口名_Table名

 

2、认认真真看【实例五】

 

你需要卸载重新安装ms office，必须安装完整版本的ms office

需要安装ms office，才能使用 word、excel 报表。

 

窗口报表、专业报表，不需要安装ms office

改成这样，如果还有问题，上传具体实例测试

 

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

 

安装完整版的（安装包至少有500M大小以上），而且必须是32位的，不要安装64位的。

如果绑定窗口表，这个窗口必须打开。

 

请上传具体实例测试。

报表设计器那里，是不能绑定窗口表的。但你可以任意的设计报表，最后用你13楼的代码生成窗口表的报表。

二维码的内容（字符长短）不同，生成的大小就不一样，这个是正常现象。

 

如果要大小一致，也可以，对生成的条码截取成大小一致的即可。

Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("表A").Rows
    bar.Code = r("第一列")
    Dim rg1 As New prt.RenderGraphics()
    rg1.Graphics.DrawImage(bar.GetImage,10,10, 100, 100)
    Doc.Body.Children.Add(rg1)
Next
Doc.Preview()