专业报表合计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表合计

共有2333人关注过本帖树形打印复制链接主题：专业报表合计

weijun

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：600 积分：4339 威望：0 精华：0 注册：2013/11/2 18:22:00

Post By：2016/10/9 15:22:00 [只看该作者]

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)

这样吗？

weijun

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：600 积分：4339 威望：0 精华：0 注册：2013/11/2 18:22:00

Post By：2016/10/9 15:27:00 [只看该作者]

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

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/9 15:50:00 [只看该作者]

Dim BindingText100 As New prt.RenderText '定义一个文本对象

B_T=format(Tables("材质书").Current("有效期至"),"yyyy年MM月dd日") '文本内容

BindingText100.Text=B_T.Replace("//",vbcrlf) '分段文本

weijun

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：600 积分：4339 威望：0 精华：0 注册：2013/11/2 18:22:00

Post By：2016/10/9 17:03:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：打印时间1.png

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

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

有点蓝

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/9 17:24:00 [只看该作者]

用法一样，看9楼

format(某个日期值,"yyyy年MM月dd日")

下一主题 >> << 上一主题

总数 15 上一页 1 2

主题：专业报表合计