主题：求助

 Dim dlg As New OpenFileDialog
    dlg.Filter= "Excel文件|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then
        Dim Book As New XLS.Book(dlg.FileName)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Tables("货单收款管理_Table1").StopRedraw()
        Dim cnt As Integer
        For n As Integer = 1 To Sheet.Rows.Count -1
            Dim bh As String = sheet(n,0).Text
            Dim dr As DataRow = DataTables("发车明细表").Find("托运单号= '" & bh & "'")
            If dr Is Nothing Then '如果不存在相同单号的运单
                dr=DataTables("发车明细表").AddNew()
            End If
            For m As Integer = 0 To Tables("货单收款管理_Table1").Cols.Count-1
                dr(Tables("货单收款管理_Table1").Cols(m).Name) = Sheet(n,m).Value
             Next
        Next
        Tables("货单收款管理_Table1").ResumeRedraw()
    End If
如果存在相同单号的运单，则覆盖原来的运单，否则新增一个运单.

如果项目中的日期列的值为空,Excel文件中的日期列为空或者有值,覆盖运行时可以正常运行.如果项目中的日期列有日期,而Excel文件中的日期列为空,这样覆盖运行时报错

此主题相关图片如下：未命名.bmp

是什么原因?该如何修改代码?请高手赐教,谢谢!