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

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

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:列表项目那儿是复制后粘贴的,有些选项后面有空格,,所以就出错了,呵呵