Dim dw,bm,xm As String
If e.Node.Level = 2 Then
Dim Value()As String
Value = e.Node.FullPath.Split("\")
dw = "[单位] = '" & Value(0) & "'"
bm = "[部门] = '" & Value(1) & "'"
xm = "[姓名] = '" & Value(2) & "'"
End If
Dim dr As DataRow
dr = DataTables("用户表").Find("[单位] = '"& dw &"' And [部门] = '"& bm &"' And [姓名] = '"& xm &"'"
dw 等 已在上面合成过了
dr = DataTables("用户表").Find(dw &" And " & bm &" And " & xm)