主题：如何在excel报表里面加上二维码

1、用10楼的excel模板；

2、BuildGroupHeader事件，写代码

    Dim str As String = ""
    Dim dh As String = e.DataRow("送货单号")
    str = dh & "," & DataTables("铝巴送货单").GetComboListString("生产piao号一","送货单号='" & dh & "'").replace("|",",")
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRcode
    Bar.Code = str
    Bar.BarWidth = 0.3
    Bar.BarHeight = 8
    Bar.SaveImage("c:\铝巴送货单.jpg")

模板照抄10楼啊

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:铝巴送货单-格式二.xls

修改事件代码，如

Dim dh As String = e.DataRow("送货单号")
Dim str As String = dh
Dim idx As Integer = 0
For Each s As String In DataTables("铝巴送货单").getvalues("生产piao号一","送货单号='" & dh & "'", "生产piao号一")
    If idx Mod 5 = 0 Then
        str &= vbcrlf
    End If
    str &= s & ","
    idx += 1
Next
msgbox(str)
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRcode
Bar.Code = str
Bar.BarWidth = 0.3
Bar.BarHeight = 8
Bar.SaveImage("c:\铝巴送货单.jpg")