以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]日期叠加是怎么回事?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57652)

--  作者:chenduanwang1973
--  发布时间:2014/9/28 16:13:00
--  [求助]日期叠加是怎么回事?

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

 


--  作者:chenduanwang1973
--  发布时间:2014/9/28 16:15:00
--  
刚才选择了附件忘了点上传了,在这里补上: 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip

[此贴子已经被作者于2014-9-28 16:16:07编辑过]

--  作者:Bin
--  发布时间:2014/9/28 17:30:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:chenduanwang1973
--  发布时间:2014/9/29 10:53:00
--  
看了你给我修改的项目,可是我要的日期格式不是这样的1993/3/15,而是这样的:1993年3月15日或1993     3    15,以便于在证件上套打!!可以实现吗???
[此贴子已经被作者于2014-9-29 10:54:13编辑过]

--  作者:有点甜
--  发布时间: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() \'预览报表


--  作者:chenduanwang1973
--  发布时间:2014/9/29 12:13:00
--  

谢谢,现在好用了!!