以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  报表动态标题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187643)

--  作者:hopestarxia
--  发布时间:2023/8/1 11:09:00
--  报表动态标题
老师,比如我查询的数据,如果今天日期为 7月10日,则A例标题就为7-11,B列的标题就为7-12,C列的标题为7-13;

如果当前日期为8月5日,则A例标题就为8-5,B列的标题就为8-6,C列的标题为8-7;

--  作者:有点蓝
--  发布时间:2023/8/1 11:20:00
--  
http://www.foxtable.com/webhelp/topics/1275.htm

dim d as data = date.today
With DataTables("表A")
    .DataCols(
"A").Caption = format(d,"Md")
d = d.adddays(1)
    .DataCols(
"B").Caption = format(d,"Md")
    .BuildHeader()

End
 With

--  作者:hopestarxia
--  发布时间:2023/8/1 11:29:00
--  
谢谢老师!
--  作者:hopestarxia
--  发布时间:2023/8/1 11:49:00
--  
老师,我这需要组合一下,如果我要把A例变为  如 \'7-11_早\',B例变为  如 \'7-11_晚\',C例变为  如 \'7-12_早\',D例变为  如 \'7-12_晚\',E例变为  如 \'7-13_早\'  ... ...
请问这样怎么处理?

--  作者:有点蓝
--  发布时间:2023/8/1 11:53:00
--  
.DataCols("A").Caption = format(d,"Md") & "_早"
--  作者:hopestarxia
--  发布时间:2023/8/1 11:55:00
--  
谢谢老师!