主题：不同用户对应诗选树编码

Tables("表A").Filter="业务员='" & User.name & "'"

Dim Filter As String = "1=1"

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "显示所有行" Then
   
    Select Case e.Node.Level
       
        Case 0
           
            Filter = "[设备名称] = '" & dr("设备名称") & "'"
           
        Case 1
           
            Filter = "[设备名称] = '" & dr("设备名称") & "' And [本公司设备编号] = '" & dr("本公司设备编号") & "'"
           
        Case 2
           
            Filter = "[设备名称] = '" & dr("设备名称") & "' And [本公司设备编号] = '" & dr("本公司设备编号") & "' And [放置地点] = '" & dr("放置地点") & "'"
           
    End Select
   
End If

Tables("设备台账").Filter = Filter & " and 录入用户='" & user.name & "'"