以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  各位老大:显示当月每天的表  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=4939)

--  作者:dg5588
--  发布时间:2006/11/16 10:38:00
--  各位老大:显示当月每天的表
各位老大:显示当月每天的表的问题,在表1中,如何自动填入当月的日期,从1号到月底所有号数?egd文件下载
--  作者:chen7806
--  发布时间:2006/11/16 11:06:00
--  
egd文件下载

这样行吗?


--  作者:gdxhq
--  发布时间:2006/11/16 11:12:00
--  
可十一月没有31号啊?
--  作者:dg5588
--  发布时间:2006/11/16 11:23:00
--  
行了,能用就好!谢谢大哥
--  作者:雅蓝
--  发布时间:2006/11/16 11:26:00
--  
[这个贴子最后由雅蓝在 2006/11/16 00:03pm 第 1 次编辑]

1、日期列改为日期型;

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","日期", "=" ,"")


--  作者:gdxhq
--  发布时间:2006/11/16 11:41:00
--  
egd文件下载
在 chen7806老兄的基础上改进了一下。  


--  作者:dg5588
--  发布时间:2006/11/16 11:50:00
--  
真谢谢!各位大哥