主题：[求助]将excel中数据合并到foxtable内建表中出现错误提示

请大侠看下如下代码，愿意是将excel中数据合并到foxtable内建表中，字段顺序都一样，但出现错误提示

Dim dlg As new  OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog= DialogResult.OK Then
    Dim book As new XLS.Book(" '" & dlg.FileName & "'")
    Dim sheet As XLS.Sheet
    sheet= book.Sheets(0)
    Tables("物料信息").StopRedraw
    Dim nms() As String= {"物料编号","物料名称","规格型号","单价","计价单位","供应商","备注"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As Row = Tables("物料信息").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("物料信息").ResumeRedraw()
End If

额，附件好像传不上去，，，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.rar

原来是压缩包太大，已上传，请大侠帮忙看下，谢谢