标题：日期分配

1楼

blackzhu 发表于：2011/7/4 10:59:00

我在表B里面输入两个日期,自动在表c按月分配:

下载信息 [文件大小：下载次数： ]
点击浏览该文件:日期分配.table

2楼

blackzhu 发表于：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

3楼

狐狸爸爸 发表于：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

4楼

blackzhu 发表于：2011/7/4 11:19:00

这个真是越看越牛.

5楼

blackzhu 发表于：2011/7/5 15:24:00

老大,这个一步一输入没有问题,但是刷新列不起作用怎么回事?

6楼

狐狸爸爸 发表于：2011/7/5 15:41:00

这个怎么能刷新呢，应该是按确定按钮来生成。

7楼

blackzhu 发表于：2011/7/5 15:45:00

明白了.因为我是放在表属性里面来做的,本来我的愿意是删除所有数据,然后可以刷新处理的.但是测试不行.所以问一下.

共7 条记录, 每页显示 10 条, 页签: [1]