主题：关于从excel中提取内容

这段代码在实际中会出现只能新增行却不能在Table中填写数据

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

点击浏览该文件:问题代码.rar

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

            Dim r As Row = Tables("表B").AddNew()

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

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

           

        Next

    Next

Tables("表B").ResumeRedraw()

 

End If

Next

是这样吗？

已解决谢谢老师！