主题：自选excel位置添加导入数据

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

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

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

    Dim Sheet As XLS.Sheet = dlg.FileName

    Tables("基本信息").StopRedraw()

    Dim nms() As String = {"棋赛名称", "棋赛副名", "编号", "姓名", "身份"}

    Dim i1 As Integer = Array.Indexof(nms, "棋赛名称")

    Dim i2 As Integer = Array.Indexof(nms, "编号")

    Dim i3 As Integer = Array.Indexof(nms, "姓名")

    For n As Integer = 1 To Sheet.Rows.Count - 1

        Dim bh1 As String = sheet(n, i1).Text

        Dim bh2 As Integer = sheet(n, i2).Value

        Dim bh3 As String = sheet(n, i3).Text

        Dim dr As DataRow = DataTables("基本信息").SQLFind("[棋赛名称] = '" & b1 & "' And [编号] =" & bh2 & " And [姓名] ='" & bh3 & "'")

        If dr Is Nothing Then '如果不存在同编号的订单

            dr = DataTables("基本信息").AddNew()

        End If

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

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

        Next

    Next

    Tables("基本信息").ResumeRedraw()

End If