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文件中的日期列为空,这样覆盖运行时报错

For m As Integer = 0 To Tables("货单收款管理_Table1").Cols.Count-1
    If sheet(n, m).Text = "" Then
        dr(Tables("货单收款管理_Table1").Cols(m).Name) = Nothing
    Else
        dr(Tables("货单收款管理_Table1").Cols(m).Name) = Sheet(n,m).Value
    End If
Next

 那就不是代码的问题，你dataColChanged事件应该有问题。

 上传实例

 看4楼

1、删除datacolchanged事件，是否还报错？如果报错，就加入msgbox，定位哪里出问题。

2、如果不报错，单独做个例子发上来测试。

删除datacolchanged事件还是报错

If sheet(n, m).Text = "" Then
        dr(Tables("货单收款管理_Table1").Cols(m).Name) = Nothing
运行到这里出现日期列时报错,其他都能运行