我有一个列,内容如下
2013\01\03
2013\01\04
2013\02\03
2013\02\05
我现在希望用单列生成一个目录树,代码如下:
在窗口中加入一个目录树(TreeView),再加入一个按钮(Button),按钮的Click事件代码设置为:
Dim
tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree("表A","时间")
目前这个目录树没有任何任何。
此主题相关图片如下:01.png
现在新的问题出现了。
我希望点击目录树的每一层节点都能够进行筛选。
代码如下:
Dim Value()As String
Dim Filter As String
Dim d1 As Date
Dim d2 As Date
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
Case 0
If e.Node.Text = "显示所有记录" Then
Tables("查看系统日志_table1").Filter = ""
Else
Dim y As Integer = value(0)
d1 = New Date(y,1,1) '取得该年的第一天
d2 = new Date(y,12,31) '取得该年的最后一天
Filter = "操作时间 >= #" & d1 & "# And 操作时间 <= #" & d2 & "#"
End If
Case 1
Dim y As Integer = value(0)
Dim m As Integer = value(1)
d1 = New Date(y, m, 1) '取得该月的第一天
d2 = new Date(y, m, Date.DaysInMonth(y,m)) '取得该月的最后一天
Filter = "操作时间 >= #" & d1 & "# And 操作时间 <= #" & d2 & "#"
'Case 2
'Dim y As Integer = value(0)
'Dim m As Integer = value(1)
'd1 = New Date(y, m, 1) '取得该月的第一天
'd2 = new Date(y, m, Date.DaysInMonth(y,m)) '取得该月的最后一天
'Filter = "操作时间 >= #" & d1 & "# And 操作时间 <= #" & d2 & "#"
End Select
Tables("查看系统日志_table1").Filter = Filter
红色部分,我不能取值到日期部分,请各位高手相助,谢谢
[此贴子已经被作者于2013-5-10 0:19:00编辑过]