主题：请帮二维码生成需要解决的两个问题

你可以把现有的二维码赋值给新的二维码列，这样两个问题一起解决

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("二维信息表码").Rows
    If r.IsNull("现有单位二维码") = False Then
        r("新生成二维码") = r("现有单位二维码")
    Else
        bar.Code = r("生成二维码信息")
        Bar.QuietZoneWidth = 2
        Bar.SaveImage(ProjectPath & "attachments\" & r("单位编号") & ".bmp")
        r("新生成二维码") = r("单位编号") & ".bmp"
    End If
Next

如果要区分，也可以。

1、

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
For Each r As Row In Tables("二维信息表码").Rows
    If r.IsNull("现有单位二维码") = False Then
        r("新生成二维码") = Nothing
    Else
        bar.Code = r("生成二维码信息")
        Bar.QuietZoneWidth = 2
        Bar.SaveImage(ProjectPath & "attachments\" & r("单位编号") & ".bmp")
        r("新生成二维码") = r("单位编号") & ".bmp"
    End If
Next

2、

[<*"&" & iif([现有单位二维码]>"", "现有单位二维码", "新生成二维码") & "&0,25,3,120,120"*>]