这是我做的一个打印条形码的代码中的一部分,为何红色的部分不能用变量代替?
.......
c31 = "" & c3.Value & ""
Dim doc As New PrintDoc
Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim rbc As New prt.RenderBarCode()
rbc.DataBinding.DataSource = BindTables("" & c1.Value & "") '绑定到表
rbc.Width = t11
rbc.Height = t21
rbc.Style.Spacing.Right = t31 '设置标签之间的所有和上下间隔为2毫米
rbc.BarCodeType = c31 ' 条码类型
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "[Fields!" & c4.Value & ".Value]" '绑定到列
rbc.ShowText = True '是否显示编码
doc.Body.Children.Add(rbc)
Doc.Preview()
此主题相关图片如下：条形码.jpg
[此贴子已经被作者于2009-6-28 14:15:00编辑过]
加好友 
发短信
Post By：2009/6/28 14:10:00 [只看该作者]
