\'--------------------------------导入EXCEL-----------------------------------------------

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

    Dim c As Integer = 0

    Dim Book As New XLS.Book(dlg.FileName)

    Dim Sheet As XLS.Sheet = Book.Sheets(0)

    \'Tables("逃费车辆数据表").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,1).Text

        Dim rq As String = sheet(n,0).Text

        If DataTables("收费站站码").Find(" 代码 = \'" & bh & "\'") Is Nothing Then \'如果不存在同编号的订单

            c = c + 1

            Dim r As Row = Tables("收费站代码_收费站站码1").AddNew()

            For m As Integer = 0 To nms.Length - 1

                r(nms(m)) = Sheet(n,m).Value

            Next

        End If

    Next

    Tables("收费站代码_收费站站码1").ResumeRedraw()

    

    MessageBox.Show("导入完成,共导入" & c & "条记录")

End If

\'-------------------------------------

这个字符在哪改啊 改成什么啊