以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  datacolchanging 里面日期的处理  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127512)
--  作者：edisontsui
--  发布时间：2018/11/15 16:28:00
--  datacolchanging 里面日期的处理
下面这段代码我放在datacolchanging里面，

\'合同到期日错误提出警告
If e.DataCol.Name = "合同到期日" Then
    If e.DataRow.IsNull("合同开始日") = False 
        Dim d2 As Date = e.newvalue("合同到期日")
        Dim d1 As Date = e.DataRow("合同开始日")
        Dim d3 As Date = d1.AddDays(1095)
        If d3 > d2
            MessageBox.Show("合同到期日与开始日差距不够3周年!")
            e.Cancel = True
        End If
    End If
End If

但是执行时出现如下警告

.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2017.3.18.1
错误所在事件：表，员工名单，DataColChanging
详细错误信息：
调用的目标发生了异常。
未找到类型“Date”的默认成员。

请问如何修改代码？谢谢。
--  作者：y2287958
--  发布时间：2018/11/15 19:15:00
--  
If e.DataCol.Name = "合同到期日" Then
    If e.DataRow.IsNull("合同开始日") = False 
        Dim d2 As Date = e.newvalue
        Dim d1 As Date = e.DataRow("合同开始日")
        Dim d3 As Date = d1.AddDays(1095)
        If d3 > d2
            MessageBox.Show("合同到期日与开始日差距不够3周年!")
            e.Cancel = True
        End If
    End If
End If
--  作者：有点甜
--  发布时间：2018/11/15 20:34:00
--  

Dim d2 As Date = e.newvalue("合同到期日")

 

改成

 

Dim d2 As Date = e.newvalue
--  作者：edisontsui
--  发布时间：2018/11/16 15:33:00
--  
谢谢。