- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 日期分配 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11005)
-- 发布时间：2011/7/4 10:59:00
-- 日期分配
我在表B里面输入两个日期,自动在表c按月分配:
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日期分配.table |
-- 发布时间：2011/7/4 11:01:00
--
表b里面:
开始日期 结束日期
2011-01-01 2011-05-08
输入后在表C里面自动生成:
开始日期 结束日期
2011-01-01 2011-02-01
2011-02-01 2011-03-01
2011-03-01 2011-04-01
2011-04-01 2011-05-01
2011-05-01 2011-05-08
-- 发布时间：2011/7/4 11:08:00
--
Dim d1 As Date = Tables("表B").Current("开始日期")
Dim d2 As Date = Tables("表B").Current("结束日期")
Dim d As Date = d1
Do While d < d2
Dim dr As Row = Tables("表C").AddNew
dr("开始日期") = d
d = d.AddMonths(1)
If d > d2 Then
d = d2
End If
dr("结束日期") = d
Loop
-- 发布时间：2011/7/4 11:19:00
--
这个真是越看越牛.
-- 发布时间：2011/7/5 15:24:00
--
老大,这个一步一输入没有问题,但是刷新列不起作用怎么回事?
-- 发布时间：2011/7/5 15:41:00
--
这个怎么能刷新呢，应该是按确定按钮来生成。
-- 发布时间：2011/7/5 15:45:00
--
明白了.因为我是放在表属性里面来做的,本来我的愿意是删除所有数据,然后可以刷新处理的.但是测试不行.所以问一下.