lsy老师，还是昨天那个例子，如图所示，我点选“红花岗区司法局”这个节点的复选框，右边的表没有变化，也就是说这个复选选择事件没有响应，其他下面的各节点都很正常。
Dim s As String
Dim Colstr() As String
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
Dim pd As WinForm.TreeNode
Dim notchecked As Integer
Dim t As Table = Tables("基层法律服务人员信息表")
s = e.Form.Controls("筛选模式").Text
Colstr = s.Split("|")
If e.Node.Name = "全部" Then
If e.Node.Checked = True Then
For Each nd In trv.AllNodes
If nd.Name <> "全部" Then
nd.Checked = False
End If
Next
t.Filter = ""
Else
For Each nd In trv.AllNodes
nd.Checked = False
Next
t.Filter = (1 = 2)
End If
trv.CollapseAll
Return
Else
trv.AllNodes(0).Checked = False
End If
For Each nd In e.node.allNodes
nd.Checked = False
Next
pd = e.Node.ParentNode
Do While pd IsNot Nothing
pd.Checked = False
pd = pd.ParentNode
Loop
For Each nd In trv.AllNodes
If nd.Checked Then
Dim rts() As String = nd.FullName.Split("\")
Dim vals As String = ""
Select Case Colstr(0)
Case "年龄"
Select Case nd.Level
Case 0
If nd.Name = "小于20大于50" Then
If vals > "" Then
vals = vals & " And "
vals = vals & "(年龄 < 20 Or 年龄 > 50)"
Else
vals = vals & "(年龄 < 20 Or 年龄 > 50)"
End If
Else
If vals > "" Then
vals = vals & " And "
vals = vals & "年龄 >= " & Val(rts(0).Split("-")(0)) & " And 年龄 <= " & Val(rts(0).Split("-")(1))
Else
vals = vals & "年龄 >= " & Val(rts(0).Split("-")(0)) & " And 年龄 <= " & Val(rts(0).Split("-")(1))
End If
End If
Case 1
If nd.ParentNode.Name = "小于20大于50" Then
If vals > "" Then
vals = vals & " And "
vals = vals & "(年龄 < 20 Or 年龄 > 50) And 姓名 = '" & nd.Name & "'"
Else
vals = vals & "(年龄 < 20 Or 年龄 > 50) And 姓名 = '" & nd.Name & "'"
End If
Else
If vals > "" Then
vals = vals & " And "
vals = vals & "年龄 >= " & Val(rts(0).Split("-")(0)) & " And 年龄 <= " & Val(rts(0).Split("-")(1)) & " And 姓名 = '" & nd.Name & "'"
Else
vals = vals & "年龄 >= " & Val(rts(0).Split("-")(0)) & " And 年龄 <= " & Val(rts(0).Split("-")(1)) & " And 姓名 = '" & nd.Name & "'"
End If
End If
End Select
Case Else
For i As Integer = 0 To rts.length - 1
If vals > "" Then
vals = vals & " And "
vals = vals & Colstr(i) & " = '" & rts(i) & "'"
Else
vals = vals & Colstr(i) & " = '" & rts(i) & "'"
End If
Next
End Select
If flt > "" Then
flt = flt & " Or (" & vals & ")"
Else
flt = vals
End If
notchecked + = 1
End If
Next
If flt > "" AndAlso notchecked > 0 Then
t.Filter = flt
Else
t.Filter = (1 = 2)
End If
加好友 
发短信
Post By：2014/3/9 22:43:00 [只看该作者]
此主题相关图片如下：6.jpg
