类似这样写代码
Dim Filter As String
Select Case e.Node.Level
Case 0
filter = "[费用类型] = '" & Vals(0) & "'"
Case 1
filter = "[费用类型] = '" & Vals(0) & "' And [一级费用类别] = '" & Vals(1) & "'"
End Select
Dim dr As DataRow = DataTables("费用类别").Find(Filter)