专家坐堂-报表时遇到的几个问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  报表时遇到的几个问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102212)

--  作者：hnguang
--  发布时间：2017/6/15 11:20:00
--  报表时遇到的几个问题
1：日期格式怎样format
2:我有几个字段需显示在table表格下面，但显示不出来

--  作者：hnguang
--  发布时间：2017/6/15 11:21:00
--

Dim Doc As New PrintDoc \'定义一个报表
Doc.PageSetting.LeftMargin = 10 \'设置左边距
Doc.PageSetting.RightMargin = 10 \'设置右边距
Doc.PageSetting.TopMargin= 8 \'设置上边距
Doc.PageSetting.BottomMargin = 10 \'设置底边距
Doc.PageSetting.Width=210 \'宽度
Doc.PageSetting.Height=279 \'高度
Doc.PageSetting.Landscape = False \'横向打印
Doc.PageSetting.Color = False \'彩色打印

Dim size =Tables("原始订单列表_table1").Current("SIZE")
Dim strsize() As String
\'得到並分析接收到的消息
strsize = size.Split(",")

Dim B_T As String \'定义一个综合文本分段文本
Dim _T As String \'定义一个分段文本
Dim tb As Table \'定义一个数据表
Dim cn As String \'定义一个Grid
Dim ColNames As String() \'定义一个数据表列数组
Dim Col_lst As new List(of String) \'列集合
Dim c As Integer
Dim iw As Integer
Dim ar1 As String
Dim li As Integer
Dim Text0 As New prt.RenderText \'定义一个文本对象
_T="东莞理捷运动器材有限公司"
Text0.Text=_T.Replace("//",vbcrlf) \'分段文本
Text0.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text0.Style.TextAlignVert=prt.AlignVertEnum.Center \'文本对齐,垂直
Text0.Style.Font=New System.Drawing.Font("宋体",20.25,1,3,134,False) \'文本字体
Text0.Style.Padding.All=0.5 \'单元格文本内距
Text0.Style.CharSpacing =0 \'字符间距为毫米
Text0.Style.TextIndent =0 \'首行缩进
Text0.Style.LineSpacing =100 \'设置行距
Text0.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text0.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text0.X=55.25 \'水平位置
Text0.Y=6.25 \'垂直位置
Text0.Width=91 \'宽度
Text0.Height=11 \'高度
Dim Text8 As New prt.RenderText \'定义一个文本对象
_T="原始订单规格表"
Text8.Text=_T.Replace("//",vbcrlf) \'分段文本
Text8.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text8.Style.TextAlignVert=prt.AlignVertEnum.Center \'文本对齐,垂直
Text8.Style.Font=New System.Drawing.Font("宋体",20.25,1,3,134,False) \'文本字体
Text8.Style.Padding.All=0.5 \'单元格文本内距
Text8.Style.CharSpacing =0 \'字符间距为毫米
Text8.Style.TextIndent =0 \'首行缩进
Text8.Style.LineSpacing =100 \'设置行距
Text8.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text8.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text8.X=69 \'水平位置
Text8.Y=15.75 \'垂直位置
Text8.Width=62 \'宽度
Text8.Height=11 \'高度
Dim Text15 As New prt.RenderText \'定义一个文本对象
_T="制造单号:"
Text15.Text=_T.Replace("//",vbcrlf) \'分段文本
Text15.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text15.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text15.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text15.Style.Padding.All=0.5 \'单元格文本内距
Text15.Style.CharSpacing =0 \'字符间距为毫米
Text15.Style.TextIndent =0 \'首行缩进
Text15.Style.LineSpacing =100 \'设置行距
Text15.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text15.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text15.X=16 \'水平位置
Text15.Y=38.25 \'垂直位置
Text15.Width=18 \'宽度
Text15.Height=5 \'高度
Dim Text16 As New prt.RenderText \'定义一个文本对象
_T="客户编号:"
Text16.Text=_T.Replace("//",vbcrlf) \'分段文本
Text16.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text16.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text16.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text16.Style.Padding.All=0.5 \'单元格文本内距
Text16.Style.CharSpacing =0 \'字符间距为毫米
Text16.Style.TextIndent =0 \'首行缩进
Text16.Style.LineSpacing =100 \'设置行距
Text16.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text16.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text16.X=71 \'水平位置
Text16.Y=38.25 \'垂直位置
Text16.Width=18 \'宽度
Text16.Height=5 \'高度
Dim Text17 As New prt.RenderText \'定义一个文本对象
_T="客户名称:"
Text17.Text=_T.Replace("//",vbcrlf) \'分段文本
Text17.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text17.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text17.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text17.Style.Padding.All=0.5 \'单元格文本内距
Text17.Style.CharSpacing =0 \'字符间距为毫米
Text17.Style.TextIndent =0 \'首行缩进
Text17.Style.LineSpacing =100 \'设置行距
Text17.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text17.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text17.X=125.25 \'水平位置
Text17.Y=38.25 \'垂直位置
Text17.Width=18 \'宽度
Text17.Height=5 \'高度
Dim Text18 As New prt.RenderText \'定义一个文本对象
_T="客户订单号:"
Text18.Text=_T.Replace("//",vbcrlf) \'分段文本
Text18.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text18.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text18.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text18.Style.Padding.All=0.5 \'单元格文本内距
Text18.Style.CharSpacing =0 \'字符间距为毫米
Text18.Style.TextIndent =0 \'首行缩进
Text18.Style.LineSpacing =100 \'设置行距
Text18.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text18.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text18.X=16 \'水平位置
Text18.Y=47.25 \'垂直位置
Text18.Width=18 \'宽度
Text18.Height=5 \'高度
Dim Text19 As New prt.RenderText \'定义一个文本对象
_T="产品类别:"
Text19.Text=_T.Replace("//",vbcrlf) \'分段文本
Text19.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text19.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text19.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text19.Style.Padding.All=0.5 \'单元格文本内距
Text19.Style.CharSpacing =0 \'字符间距为毫米
Text19.Style.TextIndent =0 \'首行缩进
Text19.Style.LineSpacing =100 \'设置行距
Text19.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text19.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text19.X=71 \'水平位置
Text19.Y=47.25 \'垂直位置
Text19.Width=18 \'宽度
Text19.Height=5 \'高度
Dim Text20 As New prt.RenderText \'定义一个文本对象
_T="鞋型:"
Text20.Text=_T.Replace("//",vbcrlf) \'分段文本
Text20.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text20.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text20.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text20.Style.Padding.All=0.5 \'单元格文本内距
Text20.Style.CharSpacing =0 \'字符间距为毫米
Text20.Style.TextIndent =0 \'首行缩进
Text20.Style.LineSpacing =100 \'设置行距
Text20.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text20.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text20.X=125.25 \'水平位置
Text20.Y=47.25 \'垂直位置
Text20.Width=18 \'宽度
Text20.Height=5 \'高度
Dim Text21 As New prt.RenderText \'定义一个文本对象
_T="总数量:"
Text21.Text=_T.Replace("//",vbcrlf) \'分段文本
Text21.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text21.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text21.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text21.Style.Padding.All=0.5 \'单元格文本内距
Text21.Style.CharSpacing =0 \'字符间距为毫米
Text21.Style.TextIndent =0 \'首行缩进
Text21.Style.LineSpacing =100 \'设置行距
Text21.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text21.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text21.X=16 \'水平位置
Text21.Y=56.5 \'垂直位置
Text21.Width=18 \'宽度
Text21.Height=5 \'高度
Dim Text22 As New prt.RenderText \'定义一个文本对象
_T="文号:"
Text22.Text=_T.Replace("//",vbcrlf) \'分段文本
Text22.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text22.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text22.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text22.Style.Padding.All=0.5 \'单元格文本内距
Text22.Style.CharSpacing =0 \'字符间距为毫米
Text22.Style.TextIndent =0 \'首行缩进
Text22.Style.LineSpacing =100 \'设置行距
Text22.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text22.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text22.X=71 \'水平位置
Text22.Y=56.5 \'垂直位置
Text22.Width=18 \'宽度
Text22.Height=5 \'高度
Dim Text23 As New prt.RenderText \'定义一个文本对象
_T="交货日期:"
Text23.Text=_T.Replace("//",vbcrlf) \'分段文本
Text23.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text23.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text23.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text23.Style.Padding.All=0.5 \'单元格文本内距
Text23.Style.CharSpacing =0 \'字符间距为毫米
Text23.Style.TextIndent =0 \'首行缩进
Text23.Style.LineSpacing =100 \'设置行距
Text23.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text23.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text23.X=125.25 \'水平位置
Text23.Y=56.5 \'垂直位置
Text23.Width=18 \'宽度
Text23.Height=5 \'高度
Dim Text24 As New prt.RenderText \'定义一个文本对象
_T="制单日期:"
Text24.Text=_T.Replace("//",vbcrlf) \'分段文本
Text24.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text24.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text24.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text24.Style.Padding.All=0.5 \'单元格文本内距
Text24.Style.CharSpacing =0 \'字符间距为毫米
Text24.Style.TextIndent =0 \'首行缩进
Text24.Style.LineSpacing =100 \'设置行距
Text24.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text24.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text24.X=16 \'水平位置
Text24.Y=29.25 \'垂直位置
Text24.Width=18 \'宽度
Text24.Height=5 \'高度
Dim Text25 As New prt.RenderText \'定义一个文本对象
_T="注意事项:"
Text25.Text=_T.Replace("//",vbcrlf) \'分段文本
Text25.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text25.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text25.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text25.Style.Padding.All=0.5 \'单元格文本内距
Text25.Style.CharSpacing =0 \'字符间距为毫米
Text25.Style.TextIndent =0 \'首行缩进
Text25.Style.LineSpacing =100 \'设置行距
Text25.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text25.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text25.X=17.75 \'水平位置
Text25.Y=125.25 \'垂直位置
Text25.Width=18 \'宽度
Text25.Height=5 \'高度
Dim Text26 As New prt.RenderText \'定义一个文本对象
_T="审核人员:"
Text26.Text=_T.Replace("//",vbcrlf) \'分段文本
Text26.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text26.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text26.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text26.Style.Padding.All=0.5 \'单元格文本内距
Text26.Style.CharSpacing =0 \'字符间距为毫米
Text26.Style.TextIndent =0 \'首行缩进
Text26.Style.LineSpacing =100 \'设置行距
Text26.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text26.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text26.X=25.5 \'水平位置
Text26.Y=158.5 \'垂直位置
Text26.Width=18 \'宽度
Text26.Height=5 \'高度
Dim Text27 As New prt.RenderText \'定义一个文本对象
_T="制单人员:"
Text27.Text=_T.Replace("//",vbcrlf) \'分段文本
Text27.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Text27.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Text27.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
Text27.Style.Padding.All=0.5 \'单元格文本内距
Text27.Style.CharSpacing =0 \'字符间距为毫米
Text27.Style.TextIndent =0 \'首行缩进
Text27.Style.LineSpacing =100 \'设置行距
Text27.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Text27.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Text27.X=116.75 \'水平位置
Text27.Y=158.5 \'垂直位置
Text27.Width=18 \'宽度
Text27.Height=5 \'高度
Dim BindingText9 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("制造单号") \'文本内容
BindingText9.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText9.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText9.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText9.Style.Font=New System.Drawing.Font("宋体",10,0,3,1,False) \'文本字体
BindingText9.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText9.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText9.Style.Padding.All=0.5 \'单元格文本内距
BindingText9.Style.CharSpacing =0 \'字符间距为毫米
BindingText9.Style.TextIndent =0 \'首行缩进
BindingText9.Style.LineSpacing =100 \'设置行距
BindingText9.Width=27 \'宽度
BindingText9.Height=5 \'高度
BindingText9.X=35 \'水平位置
BindingText9.Y=38.25 \'垂直位置
Dim BindingText10 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("客户编号") \'文本内容
BindingText10.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText10.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText10.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText10.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText10.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText10.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText10.Style.Padding.All=0.5 \'单元格文本内距
BindingText10.Style.CharSpacing =0 \'字符间距为毫米
BindingText10.Style.TextIndent =0 \'首行缩进
BindingText10.Style.LineSpacing =100 \'设置行距
BindingText10.Width=27 \'宽度
BindingText10.Height=5 \'高度
BindingText10.X=90.5 \'水平位置
BindingText10.Y=38.25 \'垂直位置
Dim BindingText11 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("客户名称") \'文本内容
BindingText11.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText11.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText11.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText11.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText11.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText11.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText11.Style.Padding.All=0.5 \'单元格文本内距
BindingText11.Style.CharSpacing =0 \'字符间距为毫米
BindingText11.Style.TextIndent =0 \'首行缩进
BindingText11.Style.LineSpacing =100 \'设置行距
BindingText11.Width=27 \'宽度
BindingText11.Height=5 \'高度
BindingText11.X=154.25 \'水平位置
BindingText11.Y=38.25 \'垂直位置
Dim BindingText12 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("客户订单号") \'文本内容
BindingText12.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText12.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText12.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText12.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText12.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText12.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText12.Style.Padding.All=0.5 \'单元格文本内距
BindingText12.Style.CharSpacing =0 \'字符间距为毫米
BindingText12.Style.TextIndent =0 \'首行缩进
BindingText12.Style.LineSpacing =100 \'设置行距
BindingText12.Width=27 \'宽度
BindingText12.Height=5 \'高度
BindingText12.X=35 \'水平位置
BindingText12.Y=47.25 \'垂直位置
Dim BindingText13 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("产品类别") \'文本内容
BindingText13.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText13.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText13.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText13.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText13.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText13.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText13.Style.Padding.All=0.5 \'单元格文本内距
BindingText13.Style.CharSpacing =0 \'字符间距为毫米
BindingText13.Style.TextIndent =0 \'首行缩进
BindingText13.Style.LineSpacing =100 \'设置行距
BindingText13.Width=27 \'宽度
BindingText13.Height=5 \'高度
BindingText13.X=90.5 \'水平位置
BindingText13.Y=47.25 \'垂直位置
Dim BindingText14 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("鞋型") \'文本内容
BindingText14.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText14.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText14.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText14.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText14.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText14.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText14.Style.Padding.All=0.5 \'单元格文本内距
BindingText14.Style.CharSpacing =0 \'字符间距为毫米
BindingText14.Style.TextIndent =0 \'首行缩进
BindingText14.Style.LineSpacing =100 \'设置行距
BindingText14.Width=27 \'宽度
BindingText14.Height=5 \'高度
BindingText14.X=154.25 \'水平位置
BindingText14.Y=47.25 \'垂直位置
Dim BindingText15 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("总数量") \'文本内容
BindingText15.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText15.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText15.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText15.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText15.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText15.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText15.Style.Padding.All=0.5 \'单元格文本内距
BindingText15.Style.CharSpacing =0 \'字符间距为毫米
BindingText15.Style.TextIndent =0 \'首行缩进
BindingText15.Style.LineSpacing =100 \'设置行距
BindingText15.Width=27 \'宽度
BindingText15.Height=5 \'高度
BindingText15.X=35 \'水平位置
BindingText15.Y=56.5 \'垂直位置
Dim BindingText16 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("文号") \'文本内容
BindingText16.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText16.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText16.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText16.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText16.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText16.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText16.Style.Padding.All=0.5 \'单元格文本内距
BindingText16.Style.CharSpacing =0 \'字符间距为毫米
BindingText16.Style.TextIndent =0 \'首行缩进
BindingText16.Style.LineSpacing =100 \'设置行距
BindingText16.Width=32 \'宽度
BindingText16.Height=5 \'高度
BindingText16.X=90.5 \'水平位置
BindingText16.Y=56.5 \'垂直位置
Dim BindingText17 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("交货日期") \'文本内容
BindingText17.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText17.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText17.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText17.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText17.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText17.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText17.Style.Padding.All=0.5 \'单元格文本内距
BindingText17.Style.CharSpacing =0 \'字符间距为毫米
BindingText17.Style.TextIndent =0 \'首行缩进
BindingText17.Style.LineSpacing =100 \'设置行距
BindingText17.Width=20 \'宽度
BindingText17.Height=5 \'高度
BindingText17.X=154.25 \'水平位置
BindingText17.Y=56.5 \'垂直位置
Dim BindingText18 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("制单日期") \'文本内容
BindingText18.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText18.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText18.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText18.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText18.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText18.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText18.Style.Padding.All=0.5 \'单元格文本内距
BindingText18.Style.CharSpacing =0 \'字符间距为毫米
BindingText18.Style.TextIndent =0 \'首行缩进
BindingText18.Style.LineSpacing =100 \'设置行距
BindingText18.Width=20 \'宽度
BindingText18.Height=5 \'高度
BindingText18.X=35 \'水平位置
BindingText18.Y=29.25 \'垂直位置

Dim BindingText19 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("SIZE标准") \'文本内容
BindingText19.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText19.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText19.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText19.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText19.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText19.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText19.Style.Padding.All=0.5 \'单元格文本内距
BindingText19.Style.CharSpacing =0 \'字符间距为毫米
BindingText19.Style.TextIndent =0 \'首行缩进
BindingText19.Style.LineSpacing =100 \'设置行距
BindingText19.Width=18 \'宽度
BindingText19.Height=5 \'高度
BindingText19.X=16 \'水平位置
BindingText19.Y=65 \'垂直位置

Dim BindingText26 As New prt.RenderText \'定义一个文本对象
B_T=strsize(0) \'文本内容
BindingText26.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText26.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText26.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText26.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText26.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText26.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText26.Style.Borders.Top = New prt.Linedef(0.1,Color.FromKnownColor(35),DashStyle.Solid) \'设置边框
BindingText26.Style.Borders.Bottom = New prt.Linedef(0.1,Color.FromKnownColor(35),DashStyle.Solid) \'设置边框
BindingText26.Style.Borders.Left = New prt.Linedef(0.1,Color.FromKnownColor(35),DashStyle.Solid) \'设置边框
BindingText26.Style.Borders.Right = New prt.Linedef(0.1,Color.FromKnownColor(35),DashStyle.Solid)
BindingText26.Style.Padding.All=0.5 \'单元格文本内距
BindingText26.Style.CharSpacing =0 \'字符间距为毫米
BindingText26.Style.TextIndent =0 \'首行缩进
BindingText26.Style.LineSpacing =100 \'设置行距
BindingText26.Width=10 \'宽度
BindingText26.Height=5 \'高度
BindingText26.X=35 \'水平位置
BindingText26.Y=65 \'垂直位置

Dim BindingText23 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("注意事项") \'文本内容
BindingText23.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText23.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText23.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText23.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText23.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText23.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText23.Style.Padding.All=0.5 \'单元格文本内距
BindingText23.Style.CharSpacing =0 \'字符间距为毫米
BindingText23.Style.TextIndent =0 \'首行缩进
BindingText23.Style.LineSpacing =100 \'设置行距
BindingText23.Width=170 \'宽度
BindingText23.Height=24 \'高度
BindingText23.X=20.25 \'水平位置
BindingText23.Y=131.75 \'垂直位置
Dim BindingText24 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("审核人员") \'文本内容
BindingText24.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText24.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText24.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText24.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText24.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText24.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText24.Style.Padding.All=0.5 \'单元格文本内距
BindingText24.Style.CharSpacing =0 \'字符间距为毫米
BindingText24.Style.TextIndent =0 \'首行缩进
BindingText24.Style.LineSpacing =100 \'设置行距
BindingText24.Width=18 \'宽度
BindingText24.Height=5 \'高度
BindingText24.X=45.25 \'水平位置
BindingText24.Y=158.5 \'垂直位置
Dim BindingText25 As New prt.RenderText \'定义一个文本对象
B_T=Tables("原始订单列表_table1").Current("制单人员") \'文本内容
BindingText25.Text=B_T.Replace("//",vbcrlf) \'分段文本
BindingText25.Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
BindingText25.Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
BindingText25.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
BindingText25.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
BindingText25.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
BindingText25.Style.Padding.All=0.5 \'单元格文本内距
BindingText25.Style.CharSpacing =0 \'字符间距为毫米
BindingText25.Style.TextIndent =0 \'首行缩进
BindingText25.Style.LineSpacing =100 \'设置行距
BindingText25.Width=18 \'宽度
BindingText25.Height=5 \'高度
BindingText25.X=135.75 \'水平位置
BindingText25.Y=158.5 \'垂直位置

Dim Grid13 As New prt.RenderTable \'定义一个报表数据表对象
tb= Tables("原始订单录入_table1") \'定义一个数据表
cn="部位名称|40|部位颜色|40|部位规格|40|备注|40" \'显示列
ColNames=cn.split("|") \'显示列转换
iw=0
For c = 0 To ColNames.Length -1
If c Mod 2=0 Then
iw+=ColNames(c+1)
Grid13.Cells(0,c/2).Text = ColNames(c)
Grid13.Cols(c/2).Width = ColNames(c+1)
Grid13.Cells(1, c/2).Text ="[Fields!" & ColNames(c) & ".Value]" \'设置绑定表达式
End If
Next
Grid13.RowGroups(1,1).DataBinding.DataSource = BindTables("原始订单录入_table1") \'将第二行绑定到订单表
Grid13.X=16.75 \'水平位置
Grid13.Y=75.75 \'垂直位置
Grid13.Width=iw \'自动宽度
Grid13.Style.TextAlignHorz=prt.AlignHorzEnum.Center \'文本对齐,水平
Grid13.Style.TextAlignVert=prt.AlignVertEnum.Center \'文本对齐,垂直
Grid13.Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
Grid13.Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Grid13.Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Grid13.CellStyle.Spacing.All=0.5 \'单元格文本内距
Grid13.RowGroups(0,tb.HeaderRows).Style.TextAlignHorz=prt.AlignHorzEnum.Left \'文本对齐,水平
Grid13.RowGroups(0,tb.HeaderRows).Style.TextAlignVert=prt.AlignVertEnum.Top \'文本对齐,垂直
Grid13.RowGroups(0,tb.HeaderRows).Style.Font=New System.Drawing.Font("宋体",9.5,0,3,134,False) \'文本字体
Grid13.RowGroups(0,tb.HeaderRows).Style.BackColor=Color.FromKnownColor(164) \'背景颜色
Grid13.RowGroups(0,tb.HeaderRows).Style.TextColor=Color.FromKnownColor(35) \'字体颜色
Grid13.RowGroups(0,tb.HeaderRows).CellStyle.Spacing.All=0.5 \'单元格文本内距
Grid13.Style.GridLines.All = New Prt.LineDef("0.1",Color.FromKnownColor(35)) \'所有网格线
\'Grid13.Style.GridLines.Vert = New Prt.LineDef("0.1",Color.FromKnownColor(35)) \'所有网格线
\'Grid13.Style.GridLines.Horz = New Prt.LineDef("0.1",Color.FromKnownColor(35)) \'所有网格线
Doc.Body.Children.Add(Text0) \'将文本加入到报表
Doc.Body.Children.Add(Text8) \'将文本加入到报表
Doc.Body.Children.Add(Text15) \'将文本加入到报表
Doc.Body.Children.Add(Text16) \'将文本加入到报表
Doc.Body.Children.Add(Text17) \'将文本加入到报表
Doc.Body.Children.Add(Text18) \'将文本加入到报表
Doc.Body.Children.Add(Text19) \'将文本加入到报表
Doc.Body.Children.Add(Text20) \'将文本加入到报表
Doc.Body.Children.Add(Text21) \'将文本加入到报表
Doc.Body.Children.Add(Text22) \'将文本加入到报表
Doc.Body.Children.Add(Text23) \'将文本加入到报表
Doc.Body.Children.Add(Text24) \'将文本加入到报表

Doc.Body.Children.Add(BindingText9) \'将字段加入到报表
Doc.Body.Children.Add(BindingText10) \'将字段加入到报表
Doc.Body.Children.Add(BindingText11) \'将字段加入到报表
Doc.Body.Children.Add(BindingText12) \'将字段加入到报表
Doc.Body.Children.Add(BindingText13) \'将字段加入到报表
Doc.Body.Children.Add(BindingText14) \'将字段加入到报表
Doc.Body.Children.Add(BindingText15) \'将字段加入到报表
Doc.Body.Children.Add(BindingText16) \'将字段加入到报表
Doc.Body.Children.Add(BindingText17) \'将字段加入到报表
Doc.Body.Children.Add(BindingText18) \'将字段加入到报表
Doc.Body.Children.Add(BindingText19) \'将字段加入到报表
Doc.Body.Children.Add(BindingText26) \'将字段加入到报表
Doc.Body.Children.Add(Text25) \'将文本加入到报表
Doc.Body.Children.Add(Text26) \'将文本加入到报表
Doc.Body.Children.Add(Text27) \'将文本加入到报表
Doc.Body.Children.Add(BindingText23) \'将字段加入到报表
Doc.Body.Children.Add(BindingText24) \'将字段加入到报表
Doc.Body.Children.Add(BindingText25) \'将字段加入到报表
Doc.Body.Children.Add(Grid13) \'将数据表加入到报表
doc.Preview() \'预览

--  作者：有点色
--  发布时间：2017/6/15 12:24:00
--

1、http://www.foxtable.com/webhelp/scr/1253.htm

2、写成这样表格后的容器.y = "Prev.Bottom + 5" \'设置垂直位置

http://www.foxtable.com/webhelp/scr/1177.htm