- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 专业报表合计 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91365)
-- 发布时间：2016/10/9 10:56:00
-- 专业报表合计
进入系统菜单 材质书表 -- 打印输出 -- 专业报表 -- 生成报表 --- 报表4
请求帮助在报表中加入数量合计 重量合计，谢谢！
此主题相关图片如下：合计.png
此主题相关图片如下：合计1.png
-- 发布时间：2016/10/9 10:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理系统.rar |
-- 发布时间：2016/10/9 11:00:00
--
贴出完整代码，或者上传例子测试
-- 发布时间：2016/10/9 11:02:00
--
附件上传2楼
-- 发布时间：2016/10/9 12:01:00
--
.....
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理系统.rar |
-- 发布时间：2016/10/9 12:42:00
--
rt222.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) \'文本字体
设置字体是这样吗？
-- 发布时间：2016/10/9 14:21:00
--
参考：http://www.foxtable.com/webhelp/scr/0494.htm
-- 发布时间：2016/10/9 14:52:00
--
此主题相关图片如下：有效期.png
此主题相关图片如下：打印时间.png
有效期至：2018年7月31日
打印时间： 2018-7-26 16:18:55
报表要怎样设置？
-- 发布时间：2016/10/9 15:00:00
--
参考：http://www.foxtable.com/webhelp/scr/0362.htm
-- 发布时间：2016/10/9 15:14:00
--
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日