主题：日期分配

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

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