- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何在一个表格里插入一个条码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123798)
-- 发布时间：2018/8/23 11:44:00
-- 如何在一个表格里插入一个条码
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
Dim rs As New prt.RenderText() \'定义一个文本对象
rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型
rt.Rows.Count = 4 \'设置行数
rt.Cols.Count = 1 \'设置列数
rt.Height = "3.8cm" \'设置表格的高度
rt.Style.Spacing.Top = 2 \'表格和前面对象的垂直间隔为4毫米
rt.Style.Spacing.Bottom = 2 \'表和和后续对象的垂直间隔为10毫米
rs.Text = "发货标签" \'设置文本对象的内容
rs.Style.Font = New Font("宋体", 12 , FontStyle.Bold) \'设置文本对象的字体
rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'文本内容水平居中
rt.Cells(0,0).text="物流单号:"
Dim rbc As New prt.RenderBarCode()
rbc.Height = 25
rbc.BarCodeType = BarCodeEnum.Code39
rbc.BarDirection = BarDirectionEnum.Normal
rbc.Text = "123456"
rbc.ShowText = True
doc.Body.Children.Add(rbc)
doc.Body.Children.Add(rs) \'将文本对象加入到表格中
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rs = New prt.RenderText() \'再次定义一个文本对象
rs.Text = "地址:XXXXX 电话:12313 传真:4546"
rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'水平居中
doc.Body.Children.Add(rs) \'将文本对象加入到表格中
Doc.Preview() \'预览报表
如何把条码 rbc 插入到 cells(0,0)
效果类似于下图
此主题相关图片如下：timg.jpg
-- 发布时间：2018/8/23 11:48:00
--
参考：http://www.foxtable.com/webhelp/scr/1208.htm
doc.Body.Children.Add(rbc)
改为
rt.Cells(0,1).RenderObject = rbc