老师,我们的项目用的阿里云数据库,我设置了表启动不加载,在目录树里按日期点击加载,现在想实现同时按日期和登录人经办的业务加载,请您指导。这是目录树的代码:
'----------------------------------目录树-----------------------
Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性
Dim d1 As Date
Dim d2 As Date
Dim Year As Integer = e.Node.DataRow("年")
Dim Month As Integer = e.Node.DataRow("月")
Dim Day As Integer = e.node.DataRow("日")
Dim Product As String = e.Node.DataRow("合同序号")
Dim Product1 As String = e.Node.DataRow("合同名称")
'Dim Product2 As String = e.Node.DataRow("考勤员")
Select Case e.Node.Level
Case 0
d1 = New Date(Year,1,1) '取得该年的第一天
d2 = new Date(Year,12,31) '取得该年的最后一天
Filter = "日期 >= '" & d1 & "' And 日期 <= '" & d2 & "'"
Case 1
d1 = New Date(Year, Month, 1) '取得该月的第一天
d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
Filter = "日期 >= '" & d1 & "' And 日期 <= '" & d2 & "'"
Case 2
d1 = New Date(Year, Month, day) '取得该月的第一天
Filter = "日期 = '" & d1 & "'"
Case 3
d1 = New Date(Year, Month, day) '取得该月的第一天
Filter = "日期 = '" & d1 & "' And 合同序号 = '" & Product & "'"
End Select
End If
DataTables("现金日记账").LoadFilter = Filter
DataTables("现金日记账").Load()
这是另一组代码,没有目录树,启动时按考勤员加载:
'-------------------------------筛选-------------------------------
Dim s As String = user.name
With DataTables("当月考勤表2")
.loadfilter = "考勤员 like '%" & s & "%'"
.load()
End With
目的就是实现以上两个功能的结合,点击目录树日期时,只显示登录人经办的项目,请您指导。