主题：导入不成功

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
   
   
   
    Tables("A110信息登记_明细").StopRedraw()
    '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
    Dim nms() As String = {"流水号","报警时间","报警电话","报警人","报警类别","辖区","事发地点","报警内容"}
    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim bh As String = sheet(n,0).Text '取得流水号
       
        If DataTables("A110信息登记_明细").Find("流水号= '" & bh & "'") Is Nothing Then
           
            For m As Integer = 0 To nms.Length - 1
 
                If Sheet(n,m).Text <> "" Then
                    Dim r As Row = Tables("窗口1_table1").AddNew()
                    'MessageBox.Show( r("'"& nms(m) &"'"))
                   
                    r(nms(m)) = Sheet(n,m).Value
                    
                End If
            Next
        End If
    Next
    Tables("A110信息登记_明细").ResumeRedraw()
End If

导入两行空白行。不知道错在哪里

1、是不是你导入的数据都已经有了？

2、代码

Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
   
   
   
    Tables("A110信息登记_明细").StopRedraw()
    '注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
    Dim nms() As String = {"流水号","报警时间","报警电话","报警人","报警类别","辖区","事发地点","报警内容"}
    '注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim bh As String = sheet(n,0).Text '取得流水号
       
        If DataTables("A110信息登记_明细").Find("流水号= '" & bh & "'") Is Nothing Then
            Dim r As Row = Tables("窗口1_table1").AddNew()
            For m As Integer = 0 To nms.Length - 1
               
                If Sheet(n,m).Text.Trim <> "" Then
                                     
                    r(nms(m)) = Sheet(n,m).Text.Trim
                    
                End If
            Next
        End If
    Next
    Tables("A110信息登记_明细").ResumeRedraw()
End If