Dim filter As String
If e.Node.name = "所有考勤" Then
filter = ""
Else
Dim dr As DataRow = e.Node.DataRow
Dim htmc As String = e.Node.DataRow("合同名称")
Dim Year As Integer = e.Node.DataRow("年")
Dim Month As Integer = e.Node.DataRow("月")
Dim dy As Date = new Date(Year ,1,1)
Dim dm As Date = new Date(Year ,Month ,1)
Select Case e.Node.Level
Case 0
Filter ="合同名称 ='" & htmc & "'"
Case 1
Filter =" 考勤月份 >= #" & dy & "# and 考勤月份 < #" & dy.AddYears(1) & "# And 合同名称 = '" & htmc & "' "
Case 2
Filter ="考勤月份 >= #" & dm & "# and 考勤月份 < #" & dm.AddMonths(1) & "# And 合同名称 ='" & htmc & "'"
End Select
End If
DataTables("考勤").loadFilter = filter
DataTables("考勤").load
'Tables("考勤").Filter = filter
如果是sql server，把#改为单引号
加好友 
发短信
Post By：2016/12/12 20:45:00 [只看该作者]
