目录树与用户冲突，报错
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("材质") & "'"
End Select
End If
Tables("查询_订单明细").Filter = Filter
Dim Filter As String = "制单人='" & _Username & "'"
Dim dr2 As DataRow
dr2 = DataTables("Users").Find("[Group] = '" & _UserGroup & "'")
Dim s As String
If dr2 IsNot Nothing Then
s = dr2("Xjry")
If s > "" Then
Filter = Filter & " or UserID in (" & s.Replace("，", ",") & ")"
End If
End If
DataTables("订单").LoadFilter = Filter '
DataTables("订单").Load()
执行上面红字代码，报错下面提示：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.5.13.2
错误所在事件：窗口,查询,TreeView2,NodeMouseDoubleClick
详细错误信息：
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
取消红字代码，目录树就正常，不报错，但需求配合红字代码，那如何改？谢谢
加好友 
发短信
Post By：2022/5/19 22:41:00 [只看该作者]
