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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表事件与日期计算

共有2617人关注过本帖树形打印复制链接主题：表事件与日期计算

有点蓝

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

等级：超级版主帖子：110818 积分：564034 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/9 9:42:00 [显示全部帖子]

1、试试

If e.DataCol.Name = "项目号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

改为

If e.DataCol.Name = "项目号" Then

If e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

'其它代码

end if

或者自行跟踪一下看是那一句代码有问题，调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

2、

If e.DataCol.name="开piao日期" orelse e.DataCol.name="客户"Then

If e.DataRow("客户")="瑞博"

e.DataRow("应结款日期")=e.DataRow("开piao日期").adddays(60)

End If

有点蓝

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

等级：超级版主帖子：110818 积分：564034 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/9 11:07:00 [显示全部帖子]

If e.DataCol.name="开piao日期" OrElse e.DataCol.name="客户"Then

If e.DataRow("客户")="博瑞"

e.DataRow("应结款日期")=e.DataRow("开piao日期").adddays(60)

ElseIf e.DataRow("客户")="abc"

Dim dt As Date

Dim dt0 As Date

dt0=e.DataRow("开piao日期")

dt=e.DataRow("开piao日期").adddays(120)

If dt.Day > 4 Then

dt = dt.AddMonths(1)

dt = new Date(dt.Year,dt.Month,4)

End If

e.DataRow("应结款日期")=dt

End If

主题：表事件与日期计算