条形码的类型及方向为何不能用变量? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这是我做的一个打印条形码的代码中的一部分,为何红色的部分不能用变量代替?
.......
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编辑过]

以下是引用狐狸爸爸在2009-6-28 21:24:00的发言：
BarCodeType 是一个枚举
c31是一个字符串。
这肯定是不能赋值的嘛。

Dim c31 As BarCodeEnum
Select Case c1.Value
   Case "Code39"
        c31= BarCodeEnum.Code39
   Case "Codabar"
        c31 = BarCodeEnum.Codabar
   '.....
End Select

设置列表项目或者输入的时候，直接用Code39就行，没必要BarCodeEnum.Code39

是这样啊,我再试试,呵呵

我这样做了,但是在选择"Code39"后没有反应,而选择其它的后,会出错错误提示,请看下图
......
Dim c31 As BarCodeEnum
Select Case e.Form.Controls("ComboBox3").Value
   Case "Codabar"
        c31= BarCodeEnum.Codabar
   Case "Code128"
        c31= BarCodeEnum.Code128
   Case "Code39"
        c31= BarCodeEnum.Code39
   Case "Code93"
        c31= BarCodeEnum.Code93
Case "CodeI2of5"
        c31= BarCodeEnum.CodeI2of5
   Case "Ean13"
        c31= BarCodeEnum.Ean13
End Select
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)

图片点击可在新窗口打开查看

此主题相关图片如下：条码2.jpg

我明白了,是我的错
1:我最后少了句代码:Doc.Preview()
2:列表项目那儿是复制后粘贴的,有些选项后面有空格,,所以就出错了,呵呵

主题：条形码的类型及方向为何不能用变量?