Dim trv As WinForm.TreeView = e.Sender
Dim flt,flt1,flt2 As String
If e.Node.Name = "显示所有数据" '专处理显示所有数据的勾选选项打勾后缴费情况表的筛选问题,打勾全显,去除勾不显.
If e.Node.Checked
For Each nd As WinForm.TreeNode In trv.AllNodes
nd.Checked = False
Next
e.Node.Checked = True
Else
flt = "1=2"
End If
Else
Dim nms As String() = {"住址_巷","住址_号","住址_房","户主姓名","手机号码","车牌号码"} '指定生成目录树的各列
Dim qts As String() = {"'","","","'","'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号
For Each nd As WinForm.TreeNode In e.node.allNodes '清除子节点的选中标记
nd.Checked = e.node.Checked
Next
If e.node.Checked = False
Dim pd As WinForm.TreeNode = e.Node.ParentNode
If pd IsNot Nothing Then
pd.Checked = False
End If
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
Dim val As String = ""
Dim rts() As String = nd.FullPath.Split("\")
If nd.FullPath Like "月租停车*"
For i As Integer = 1 To rts.length - 1
If val > "" Then
val = val & " And "
End If
val = val & nms(i-1) & " = " & qts(i-1) & rts(i) & qts(i-1)
Next
If flt1 > "" Then
flt1 = flt1 & " or (" & val & ")"
Else
flt1 = val
End If
Else
If val > "" Then
val = val & " And "
End If
Dim d1,d2 As Date
If rts.Length = 2 Then
d1 = new Date(cint(rts(1)),1,1)
d2 = new Date(cint(rts(1)),12,11)
ElseIf rts.Length > 2
d1 = new Date(cint(rts(1)),cint(rts(2)),1)
d2 = new Date(cint(rts(1)),cint(rts(2)),Date.DaysInMonth(cint(rts(1)),cint(rts(2))))
End If
val = val & "日期 >= #" & d1 & "# and 日期 <=#" & d2 & "#"
If nd.Level = 3 Then
If val > "" Then
val = val & " And "
End If
val = val & "车牌号码 = '" & nd.Text & "'"
End If
If flt2 > "" Then
flt2 = flt2 & " or (" & val & ")"
Else
flt2 = val
End If
End If
End If
Next
If flt1 > "" Then
flt1 = "分类='月租停车' and (" & flt1 & ")"
End If
If flt2 > "" Then
flt2 = "分类='临时停车' and (" & flt2 & ")"
End If
flt = flt1
If flt > "" Then
If flt2 > "" Then
flt = "(" & flt1 & ") or (" & flt2 & ")"
End If
Else
flt = flt2
End If
End If
Tables("主界面_Table5").Filter = flt
[此贴子已经被作者于2021/2/22 20:51:16编辑过]
加好友 
发短信
Post By：2021/2/18 13:10:00 [显示全部帖子]
