主题：[求助]导入问题

Dim Book As New XLS.Book("d:\数据管理\厂发货数.xls") 
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("厂发货数量").StopRedraw()
Dim nms() As String = {"车号","到站","规格","件数","吨位","实重"}
 For n As Integer = 1 To Sheet.Rows.Count -1 
    Dim ch As String = sheet(n,1).Text   '你车号是第二列
    If DataTables("厂发货数量").Find("车号 = '" & ch & "'") Is Nothing Then '如果不存在同编号的订单
        Dim r As Row = Tables("厂发货数量").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    End If
Next
Tables("厂发货数量").ResumeRedraw(

你的代码没问题,有空行是因为你的表格有空行