不能用 Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As Stringdim ary() as string = e.Node.FullName("\")Dim s As Strings = e.node.name
Select Case e.Node.Level Case 1 Filter = s & " = '" & ary(1) & "'"End SelectTables("人员基本信息").Filter = Filter