关于自定义表头的问题，求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于自定义表头的问题，求助

共有4179人关注过本帖树形打印复制链接主题：关于自定义表头的问题，求助

狐狸爸爸

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

等级：管理员帖子：47480 积分：251289 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/3/29 8:38:00 [显示全部帖子]

你用的什么报表，如果是word报表,Excel报表，都可以直接在报表模版中用表达式实现：

< "公司生产数据报表" & Year(Date) & "年" >

狐狸爸爸

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

等级：管理员帖子：47480 积分：251289 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/3/29 9:30:00 [显示全部帖子]

专业报表不是更方便吗：

.text = "** 公司生产数据报表(" & Date.Today.Year() & " 年)”

狐狸爸爸

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

等级：管理员帖子：47480 积分：251289 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/3/29 9:48:00 [显示全部帖子]

有点甜的方法可以，但是比较繁琐，你可以用一些标记，例如[Y]表示年，[M]表示月，留给用户定义，打印的时候你直接编码替换就行。

Dim s As String = "** 公司生产数据报表([Y]年[M]月)"

.Text = s.Repalce("[Y]",Date.Today.Year).Replace("[M]",Date.today.Month)

这样用户用起来更方便

[此贴子已经被作者于2014-3-29 9:48:36编辑过]

主题：关于自定义表头的问题，求助