[求助]周期增加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dt As DataTable = DataTables("固定_table2")

Dim r As Row = Tables("客户资料").current

Dim sd As Date = r("开始日期")

Dim ed As Date = r("结束日期")

Dim d As Date = sd

Dim idx As Integer = 1

Dim month As Integer = d.Month - 1

Do While d <= ed

If d.Month - month = 1 Then '1月

If d.DayOfWeek =r("周") Then

If idx = r("周期") Then '第几周

output.show(d)

Dim ndr = dt.addnew

ndr("截止日期") = d

ndr("编号") =r.DataRow("编号")

month = d.month

idx = 1

Else

idx += 1

End If

d = d.AddDays(1)

Loop

为什么1、选择日期18年10月至19年12月底，但只能生产18年12月底的订单。只能添加开始日期当年的订单。？？老师以上代码是那出错呢?

[此贴子已经被作者于2018/8/19 18:25:10编辑过]

例如：要添加2018年7月1日至2019年7月1日，窗口按钮添加，只能增加到2018年底。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目6.foxdb

[此贴子已经被作者于2018/8/19 20:39:21编辑过]

如果我想新增一个按钮。固定增加：每月最后一个星期几?怎么写代码呢？

Dim dt As DataTable = DataTables("固定_table2")
Dim r As Row = Tables("客户资料").current
Dim sd As Date = r("执行日期")
Dim ed As Date = r("到期日期")
Dim d As Date = sd
Dim y As Integer = 2018
Dim m As Integer = 8
Dim wd As Integer =r("周") Then ’3 '星期三
Dim d As Date = new Date(y,m,1)
d = d.AddMonths(1).AddDays(-1)
Do While True
    If d.DayOfWeek = wd Then
        msgbox(d)
        Exit Do
        ndr("日期") = d
        ndr("编号") =r.DataRow("编号")


    End If
    d = d.AddDays(-1)
Loop

抱歉不能举一反三。

客户资料表有三列“”周“执行日期”到期日期‘’列派工表有两列：日期列和编号列。希望通过按钮代码，添加执行日期和到期日期这个时间段里的，每月最后一个星期几的行。

主题：[求助]周期增加