目录树与用户冲突,报错
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() 将允许在此行中创建新数据
取消红字代码,目录树就正常,不报错,但需求配合红字代码,那如何改?谢谢