2、公式：ClearGrid(grid)andAddRows(grid,Day(EOMonth(Today(),0))-1) And SetCellText(Grid,1,"日期",EOMonth(Today(),-1)+1) And EvalFor(Grid,"日期","cell(row-1,""日期"") + 1","日期", "=" ,"")
加好友 
发短信
Post By：2006/11/16 11:26:00 [显示全部帖子]
