主题：批号自动生成有效期的代码问题

如下代码运行时可达到，设计要求。通过批号输入能得到有效期如：20160302     有效期20170301

 

 

但是：导入时数据时，为什么会提示冲突，使导入数据无法进行，还至致死机。另在操作手工删除批号时出现如下提示

 

调用的目标发生了异常。

.NET Framework 版本：2.0.50727.3643
Foxtable 版本：2016.6.26.1
错误所在事件：表，入库明细，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

      如在“命令操作窗口执行时”问题更大？？？

 

 

                                    求指教！！！！

 

 

 

此主题相关图片如下：截图00.png

Select Case e.DataCol.Name
    Case "批号"
        if e.newValue <> Nothing AndAlso e.newvalue.Length >= 8 then
            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 if
End Select