主题：[求助]求助，数据更新的问题

Dim Book As New XLS.Book(ProjectPath & "更新数据源\户主信息表.xls")

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

Tables("户主信息").StopRedraw()

''注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

Dim nms() As String = {"户主姓名","户主身份证号","镇","村","社","家庭人口数","耕地面积","林地面积","退耕还林面积","家庭年收入","计生信息","家庭情况","贫困原因","是否双联户","拥有农机具情况"}

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

    If sheet(n, 1).text <> "" Then

        Dim sfzh As String = sheet(n,1).Text

        Dim dr As DataRow = DataTables("户主信息").Find("户主身份证号 = '" & sfzh & "'")

        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

    End If

Next

Tables("户主信息").ResumeRedraw()

MessageBox.show("户主信息已成功更新")