参照基本工资筛选代码方法,表达式总是不正确,通不过去,不知哪里出错:正常代码:
Select Case e.Node.Level
Case 1
If e.Node.ParentNode.Text = "出生日期" Then
Dim y As Date = new Date(cint(e.Node.Text.Split("(")(0)),1,1) '取日期某部分?
Filter = "出生日期 >= #" & y & "# and 出生日期 < #" & y.AddYears(1) & "#"
ElseIf e.Node.ParentNode.Text = "基本工资" Then
If e.node.text.Contains("以下") Then
Filter = "基本工资 <= " & e.node.name.Replace("以下","")
ElseIf e.node.text.Contains("以上") Then
Filter = "基本工资 > " & e.node.name.Replace("以上","")
Else
Dim ar() As String = e.node.name.split("-")
Filter = "基本工资 >= " & ar(0) & " and 基本工资 <= " & ar(1)
End If
Else
Filter = e.Node.ParentNode.Text & " = '" & e.Node.Text.Split("(")(0) & "'"
End If
End Select
'
Tables("表A").Filter = Filter
出错的(单独测试):
Select Case e.Node.Level
Case 1
If e.node.parentnode.text = "工龄" Then
If e.node.text.contains("以下") Then '判断节点是否包含指定字符
Filter = "入职日期 <= " & e.node.name.Replace("以下","") '这个搞不清楚是入职日期还是工龄,但都试过,总感觉数据类型不对
End If
End If
End Select
另一个问题:
Dim y As Date = new Date(cint(e.Node.Text.Split("(")(0)),1,1) 这行代码是什么意思?cint是什么作用?(搜帮助没找到)
加好友 
发短信
Post By：2019/11/23 18:40:00 [显示全部帖子]
