Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表时遇到的几个问题


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

主题：报表时遇到的几个问题
帅哥哟，离线，有人找我吗？
hnguang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：521 积分：4714 威望：0 精华：0 注册：2016/12/17 11:51:00 		报表时遇到的几个问题  发帖心情 Post By：2017/6/15 11:20:00 [只看该作者]

1：日期格式怎样format
2:我有几个字段需显示在table表格下面，但显示不出来
 回到顶部
帅哥哟，离线，有人找我吗？
hnguang
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：521 积分：4714 威望：0 精华：0 注册：2016/12/17 11:51:00 		  发帖心情 Post By：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() '预览
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：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

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 4 次数据查询