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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日期自动计算

共有2687人关注过本帖树形打印复制链接主题：[求助]日期自动计算

小帅

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：217 威望：0 精华：0 注册：2014/11/5 0:53:00

[求助]日期自动计算 发帖心情

Post By：2014/11/7 10:55:00 [只看该作者]

问题描述：

dvubb 此主题相关图片如下：0000.png

如果【借款日期】为星期五，则【收款日期】= 【借款日期】+ 3

如果【借款日期】为星期六，则【收款日期】= 【借款日期】+ 2

如果【借款日期】为星期日、星期一、星期二、星期三、星期四，则【收款日期】= 【借款日期】+ 1

怎么体现出来？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/7 11:00:00 [只看该作者]

If e.DataCol.name = "借款日期" Then
    Dim d As Date = e.newvalue
    If d = Nothing Then
        e.DataRow("还款日期") = Nothing
    Else
        If d.DayOfWeek = 4 Then
            e.DataRow("还款日期") = d.AddDays(3)
        Else If d.DayOfWeek = 5 Then
            e.DataRow("还款日期") = d.AddDays(2)
        Else
            e.DataRow("还款日期") = d.AddDays(1)
        End If
    End If
End If

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/11/7 11:01:00 [只看该作者]

要编码实现

datacolchanged 事件

if e.datacol.name="借款金额" then

dim dw as integer = e.datarow("借款日期").DayOfWeek

if dw=5 then

e.datarow("收款日期")=e.datarow("借款日期").AddDays(3)

else if dw = 6 then

e.datarow("收款日期")=e.datarow("借款日期").AddDays(2)

else

e.datarow("收款日期")=e.datarow("借款日期").AddDays(1)

end if

czy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2014/11/7 13:08:00 [只看该作者]

少点判断也可以这样

If e.DataCol.name = "借款日期"
Dim dr As DataRow = e.DataRow
dr("还款日期") = iif(DatePart("w", dr("借款日期")) < 6 ,dr("借款日期").AddDays(1),dr("借款日期").AddDays(9-DatePart("w", dr("借款日期"))))
End If

下一主题 >> << 上一主题

主题：[求助]日期自动计算