“此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据”是什么错误提示来的 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → “此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据”是什么错误提示来的

共有4763人关注过本帖树形打印复制链接主题：“此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据”是什么错误提示来的

zhuxin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：54 积分：497 威望：0 精华：0 注册：2016/7/4 8:43:00

“此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据”是什么错误提示来的 发帖心情

Post By：2016/10/16 9:20:00 [显示全部帖子]

相同的语句代码为什么在其他表可以导入资料，而在另一个文档则不行呢？弹出“此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据”的错误提示，并且把原来的数据也显示不出来。

zhuxin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：54 积分：497 威望：0 精华：0 注册：2016/7/4 8:43:00

Post By：2016/10/16 9:21:00 [显示全部帖子]

Dim Book As New XLS.Book("C:\Documents and Settings\Administrator\桌面\单价表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("表A").StopRedraw()
Dim nms() As String = {"供应商","编码","货品名称","规格","单位","单价"}
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = Tables("表A").AddNew()
    For m As Integer = 0 To nms.Length - 1
        r(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("表A").ResumeRedraw()