请大侠看下如下代码,愿意是将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