专家坐堂-[求助]逻辑列筛选树变更显示格式后点击报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [求助]逻辑列筛选树变更显示格式后点击报错

此主题相关图片如下：image 1.jpg

将筛选树中的true、false替换为“已送达“、”未送达”后，显示没问题，点击树节点提示出错。

“无法在 System.Boolean 和 System.String 上执行“=”操作。”见上图,请版主指教，谢谢！

窗口AfterLoad代码：

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

trv.BuildTree(e.Form.Controls("Table1").Table.DataTable, "承办人|是否结案|送达状态") \'窗口中副本表的筛选树

trv.Nodes.Insert("显示所有行",0)

For Each nd As WinForm.TreeNode In trv.AllNodes ’变更显示

nd.Text = nd.Text.Replace("True","已送达").Replace("False","未送达")

-------------------------------------------

目录树单击NodeMouseClick代码：

Dim Filter As String = ""

Dim Value() As String

Value = e.Node.FullPath.Split("\\")

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

Select Case e.Node.Level

Case 0

Filter = "[承办人] = \'" & Value(0) & "\'"

Case 1

Filter = "[承办人] = \'" & Value(0) & "\' And [是否结案] = \'" & Value(1) & "\'"

Case 2

Filter = "[承办人] = \'" & Value(0) & "\' And [是否结案] = \'" & Value(1) & "\' And [送达状态] = \'" & Value(2) & "\'"

End Select

End If

Tables("送达管理_Table1").Filter = Filter

[此贴子已经被作者于2017/9/19 22:29:02编辑过]