此主题相关图片如下：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","未送达")
Next
-------------------------------------------
目录树单击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编辑过]
加好友 
发短信
Post By：2017/9/19 22:28:00 [显示全部帖子]
