以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期自动显示一个月  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109243)
--  作者：有点甜
--  发布时间：2017/11/7 17:23:00
--  

 列名改成，如 日1、日2、日3、日4.....日31

 

 AfterOpenProject事件写代码

 

For i As Integer = 1 To 31
    Tables("表A").cols("日" & i).caption = format(Date.Today.AddDays(i-1), "MM-dd")
Next
--  作者：有点蓝
--  发布时间：2017/11/7 21:41:00
--  
代码改为

For i As Integer = 1 To 31
    DataTables("表A").DataCols("日" & i).caption = format(Date.Today.AddDays(i-1), "MM-dd")
Next
DataTables("表A").BuildHeader