老师您好！ 我将“条形码”字段先用备注型创建，然后是将列属性改为：图片类型。我的代码如下：但是生成后，打开字段后没有生成的“条形码”，什么原因？
，Select Case e.DataCol.Name
Case "清单条码编码", "清单条形码"
If e.DataRow.IsNull("清单条码编码") Then
e.DataRow("条形码") = Nothing
else
Dim doc As New PrintDoc
Dim img As prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.BarRatio = 0.3
Bar.BarHeight = 8
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
For Each r As Row In Tables("生产计划明细表").Rows
bar.Code = r("清单条码编码")
img = New prt.RenderImage
img.Image = bar.GetImage
Doc.Body.Children.Add(img)
Next
End If
End select
加好友 
发短信
Post By：2024/4/25 11:13:00 [显示全部帖子]
