主题：求助

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、如果不报错，单独做个例子发上来测试。

红色代码的地方，去掉

If CurrentTable.Focus Then
    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).Text
                If sheet(n, m).Text = "" Then
                    dr(Tables("货单收款管理_Table1").Cols(m).Name) = Nothing
                Else
                    dr(Tables("货单收款管理_Table1").Cols(m).Name) = Sheet(n,m).Text
                End If
            Next
            cnt=cnt+1
        Next
        Tables("货单收款管理_Table1").ResumeRedraw()
       
        If cnt>0 Then
            MessageBox.Show("数据导入完毕,已成功导入" & cnt & "条数据!!!!")
            DataTables("发车明细表").Save()
        Else
            MessageBox.Show("数据已存在不要重复导入哦!!!!")
        End If
    End If
Else
    MessageBox.Show("输入焦点不在当前表,请把输入焦点移到当前表,然后再导入!!!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Warning)
End If