- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]日期叠加是怎么回事？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57652)
-- 发布时间：2014/9/28 16:13:00
-- [求助]日期叠加是怎么回事？
我用的试用版做的项目，在使用专业报表打印预览和输出时，出现日期叠加在一起的现象，不知是什么原因，请指教！！！附件是做的例子。
-- 发布时间：2014/9/28 16:15:00
--
刚才选择了附件忘了点上传了，在这里补上：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2014/9/28 17:30:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2014/9/29 10:53:00
--
看了你给我修改的项目，可是我要的日期格式不是这样的1993/3/15，而是这样的：1993年3月15日或1993 3 15，以便于在证件上套打！！可以实现吗？？？
-- 发布时间：2014/9/29 11:00:00
--
Dim doc As New PrintDoc \'定义一个报表
Dim rx As New prt.RenderText \'定义一个文本对象
doc.Body.Children.Add(rx) \'将文本对象加入到报表
Dim CurRow As Row = Tables("表B").Current
doc.PageSetting.PaperKind = 13 \'设为B5纸张
rx.Width = "Parent.Width" \'对象宽度等于页面宽度
rx.Height = "Parent.Height" \'对象高度等于页面高度
rx.Style.LineSpacing =100
rx = new prt.RenderText
rx.Text = CurRow("姓名")
rx.Style.Font = New Font("楷体", 14, FontStyle.Bold)
rx.x = 60
rx.y = 23
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("性别")
rx.Style.Font = New Font("楷体", 14, FontStyle.Bold)
rx.x = 60
rx.y = 35
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = Format(CurRow("出生日期"), "yyyy年MM月dd日")
\'rx.DataBinding.DataSource = BindTables("表B") \'将rx绑定表B
\'rx.Text= "[Format(Fields!出生日期.Value,""yyyy 年 MM 月 dd 日 "")]"
rx.Style.Font = New Font("楷体", 14, FontStyle.Bold)
rx.x = 60
rx.y = 45
doc.body.Children.Add(rx)
Doc.Preview() \'预览报表
-- 发布时间：2014/9/29 12:13:00
--
谢谢，现在好用了！！