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

 字符串默认是不会当成代码来用，你需要编译这句字符串，得到编译后的字符串。

 参考 http://www.foxtable.com/help/topics/1487.htm

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

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

专业报表不是更方便吗：

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

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

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

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

这样用户用起来更方便

 说一个通用的方法，编译返回需要的字符串。

 自己替换红色的内容为 "** 公司   生产数据报表 & ( "  & Date.Today.Year()  & " 年)"

Functions.Remove("MyFunc")
Dim code As String
code += "return " & Tables("表A").Rows(0)("编号")
Functions.Add("MyFunc",Code)
Functions.Complie()

Dim result As String = Functions.Execute("MyFunc")
msgbox(result)