筛选代码:
Dim flt As String
For Each nd As WinForm.TreeNode In e.Sender.AllNodes
Dim d1,d2,d3,d4,d5 As Date
Dim Year As Integer = nd.DataRow("年")
Dim Month As Integer = nd.DataRow("月")
Dim Day As Integer = nd.DataRow("日")
d1 = New Date(Year,1,1) '取得该年的第一天
d2 = new Date(Year,12,31) '取得该年的最后一天
d3 = New Date(Year, Month, 1) '取得该月的第一天
d4 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
d5 = New Date(Year, Month,Day)
If nd.Checked = True Then
If flt > "" Then
flt = flt & " Or "
End If
If nd.Level = 0 Then
flt = flt & "(来往单位 = '" & nd.Name & "')"
elseIf nd.Level = 1 Then
flt = flt & "(来往单位 = '" & nd.ParentNode.Name & "'And 日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#)"
elseIf nd.Level = 2Then
flt = flt & "(来往单位 = '" & nd.ParentNode.ParentNode.Name & "'And 日期 >= #" & d3 & "# And 日期 <= #" & d4 & "#)"
elseIf nd.Level = 3 Then
flt = flt & "(来往单位 = '" & nd.ParentNode.ParentNode.ParentNode.Name & "'And 日期 = #" & d5 & "#)"
End If
End If
e.Form.Controls("Table1").Table.Filter = flt
Next
MessageBox.Show(flt)
加好友 
发短信
Post By：2021/3/18 8:56:00 [显示全部帖子]
