[求助]报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

.NET Framework 版本：4.0.30319.34209

Foxtable 版本：2020.5.29.8

错误所在事件：窗口,主窗口,TreeView1,NodeMouseClick

详细错误信息：

此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

目录树是单选，点击代码如下，哪里有问题？求助

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "显示所有行" Then

Select Case e.Node.Level

Case 0

Filter = "[省市项目名称] = '" & dr("省市项目名称") & "'"

Case 1

Filter = "[省市项目名称] = '" & dr("省市项目名称") & "' And [考核板块] = '" & dr("考核板块") & "'"

Case 2

Filter = "[省市项目名称] = '" & dr("省市项目名称") & "' And [考核板块] = '" & dr("考核板块") & "' And [成果状态] = '" & dr("成果状态") & "'"

Case 3

Filter = "[省市项目名称] = '" & dr("省市项目名称") & "' And [考核板块] = '" & dr("考核板块") & "' And [成果状态] = '" & dr("成果状态") & "' And [设计类别] = '" & dr("设计类别") & "'"

End Select

End If

Tables("成果台账").Filter = Filter

Tables("成果台账").Sort = "设计类别,正式成果名称"

这个目录树是怎么生成的？

If _UserGroup = "文员" Or _UserGroup = "合同专员" Then

DataTables("成果台账").LoadFilter = ""

Else

DataTables("成果台账").LoadFilter = "(片区负责人 like '%" & _Username & "%' or 项目负责人 like '%" & _Username & "%' or 专项负责 like '%" & _Username & "%' or 行临时可见 like '%" & _Username & "%' or 软装项目负责人 like '%" & _Username & "%' or 方案设计完成时间节点_负责人 like '%" & _Username & "%' or 深化设计完成时间节点_负责人 like '%" & _Username & "%' or 软装设计摆场完成节点_负责人 like '%" & _Username & "%') and [成果状态] = '正在处理'"

End If

DataTables("成果台账").Load()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("成果台账", "省市项目名称|考核板块|成果状态|设计类别")

Tables("成果台账").Sort = "设计类别,省市项目名称,片区负责人,项目负责人,正式成果名称"

With Tables("计划台账")

If .Current IsNot Nothing Then

Tables("计划台账").Sort = "创建日期 DESC,创建时间 DESC"

Tables("计划台账").Position = 0 '光标在第1行

End If

End With

是不是生成目录树后，后来又重新加载过这个表的数据了？如果是这样每次重新加载后，或者删除行后都需要重新生成目录树的

就是生成目录树后，打开系统菜单时，切换目录树节点时报错，报错可以修复不报错嘛？

打开系统菜单 -- 指的什么？是不是又重新加载过这个表的数据了

主题：[求助]报错