Foxtable(狐表)用户栏目专家坐堂 → 条形码的类型及方向为何不能用变量?


  共有19770人关注过本帖树形打印复制链接

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

美女呀,离线,留言给我吧!
yangming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
条形码的类型及方向为何不能用变量?  发帖心情 Post By:2009/6/28 14:10:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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



 回到顶部
美女呀,离线,留言给我吧!
yangming
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/6/29 9:24: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



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


 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/6/29 10:02:00 [只看该作者]

我这样做了,但是在选择"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
图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
yangming
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/6/29 10:08:00 [只看该作者]

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

 回到顶部