主题：[求助]日期叠加是怎么回事？

我用的试用版做的项目，在使用专业报表打印预览和输出时，出现日期叠加在一起的现象，不知是什么原因，请指教！！！附件是做的例子。

 

刚才选择了附件忘了点上传了，在这里补上： 

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

点击浏览该文件:管理项目1.zip

.

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

点击浏览该文件:管理项目1.rar

看了你给我修改的项目，可是我要的日期格式不是这样的1993/3/15，而是这样的：1993年3月15日或1993     3    15，以便于在证件上套打！！可以实现吗？？？

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() '预览报表

谢谢，现在好用了！！