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

共有1869人关注过本帖树形打印复制链接主题：求助

zch1104

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

等级：婴狐帖子：58 积分：496 威望：0 精华：0 注册：2016/4/11 18:05:00

求助

Post By：2016/7/15 22:49:00 [只看该作者]

效期1年（12个月）生产批号为20160605 有效期为20170604 用表达式的话【生产批号】+9999 大多数都行，

特殊的情况就是生产批号为20160601 有效期为20170600 （实际应该是20170531），用上述表达式的方法就不行了。

用代码表示我还不会。其他有没有方法可用。如果哪位大神可以的话，帮我写个代码，以供参考，谢谢！！

Hyphen

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

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/7/16 9:10:00 [只看该作者]

代码作法，把有效期改为数据列:http://www.foxtable.com/webhelp/scr/2494.htm

表DataColChanged事件

Select Case e.DataCol.Name

Case "生产批号"

Dim s As String = CStr(e.NewValue)

Dim d As Date =new Date(s.SubString(0,4),s.SubString(4,2),s.SubString(6,2))

d = d.AddYears(1).AddDays(-1)

e.DataRow("有效期") = Format(d,"yyyyMMdd")

End Select

主题：求助