主题：如何利用“更新同主键记录”更新记录

Dim dlg As new OpenFileDialog

dlg.Filter = "excel文件|*.xls;*.xlsx"

If dlg.ShowDialog Then

    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,0).Text

        Dim fdr As DataRow = DataTables("县分公司").Find("编号 = '" & bh & "'")

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

            fdr = DataTables("县分公司").AddNew()

        End If

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

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

        Next

        

    Next

    Tables("县分公司").ResumeRedraw()

End If