主题：专业报表合计

进入系统菜单 材质书表 --  打印输出 --  专业报表  --  生成报表  --- 报表4

 

请求帮助在报表中加入数量合计  重量合计，谢谢！

此主题相关图片如下：合计.png


此主题相关图片如下：合计1.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理系统.rar

附件上传2楼

rt222.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False)  '文本字体

设置字体是这样吗？

此主题相关图片如下：有效期.png


此主题相关图片如下：打印时间.png

 

有效期至：2018年7月31日

 

打印时间： 2018-7-26  16:18:55

 

报表要怎样设置？

 

Dim BindingText100  As New prt.RenderText '定义一个文本对象
B_T=Tables("材质书").Current("有效期至")  '文本内容
BindingText100.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText100.Style.TextAlignHorz=prt.AlignHorzEnum.Left  '文本对齐,水平
BindingText100.Style.TextAlignVert=prt.AlignVertEnum.Top  '文本对齐,垂直
BindingText100.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False)  '文本字体
BindingText100.Style.BackColor=Color.FromKnownColor(164)  '背景颜色
BindingText100.Style.TextColor=Color.FromKnownColor(35)  '字体颜色
BindingText100.Style.Padding.All=0.5  '单元格文本内距
BindingText100.Style.CharSpacing =0  '字符间距为毫米
BindingText100.Style.TextIndent =0  '首行缩进
BindingText100.Style.LineSpacing =100  '设置行距
BindingText100.Width=52  '宽度
BindingText100.Height=6  '高度
BindingText100.X=223  '水平位置
BindingText100.Y=58.25  '垂直位置

 

Format(#12/31/2008#, "yyyy年MM月dd日") '2008年12月31日

 

怎么用呀？

 

显示为  有效期至：2018年12月31日

 

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.DataBinding.DataSource = BindTables("材质书") '将rt绑定到订单表
rt.Text= "[Format(Fields!有效期至.Value,""yyyy-MM-dd"")]"
doc.body.Children.Add(rt)

 

这样吗？

 

 

BindingText100.Text= "[Format(Fields!有效期至.Value,""yyyy-MM-dd"")]"

此主题相关图片如下：打印时间1.png

B_T=Format(Tables("材质书").Current("打印时间"), "G")

 

打印时间也改好了，谢谢！