列名改成，如 日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
加好友 
发短信
Post By：2017/11/7 17:23:00 [显示全部帖子]
