以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 日期减少  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139891)
--  作者：leoli
--  发布时间：2019/8/24 12:49:00
--  [求助] 日期减少

你好，有两个 列名 日期1 和 日期 2

 

 dr("日期1") =  dr ("日期2") -7

 

怎么不对的。要自身纠正 ？
--  作者：有点蓝
--  发布时间：2019/8/24 14:38:00
--  
参考：http://www.foxtable.com/webhelp/topics/1337.htm
--  作者：leoli
--  发布时间：2019/8/24 16:49:00
--  

你好，出现了如图的错误，哪儿错了吗？

 

Dim d As Date = dr2("ETD")
Dim d2 As Date = d.AddDays(-7)
  dr2("SOP") =d2


图片点击可在新窗口打开查看此主题相关图片如下：捕获.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/8/24 16:58:00
--  
dr2("ETD")没有值吧？

if dr2.isnull("ETD") = false then
Dim d As Date = dr2("ETD") 
Dim d2 As Date = d.AddDays(-7)
  dr2("SOP") =d2
end if