主题：请教，导入代码与表属性代码冲突？？？

本人;写入导入代码如下：

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter=  "Excel文件|*.xls"  '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "商品资料$"
    mg.DataTableName = "商品资料"
    mg.Merge()
End If

没问题。在执行导入“商品资料”的时候，出现如下提示

.NET Framework 版本：2.0.50727.3643
Foxtable 版本：2016.6.26.1
错误所在事件：表，商品资料，DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

说明：商品资料的事件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

谢谢，解答！！