主题：[求助]帮忙看下这个筛选树的代码 谢谢

在"生产进度表"里分别有两列"零件名称"和"工艺原料"调用筛选树窗口，但是现在情况是 两列不管是在哪列里面操作 都同时变发更改了……就像没做列判断一样！ 请帮忙看看哪里写错了！

If e.Node.Level = 0 OrElse e.Node.Level = 1 Then '如果是顶层节点
    Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String
Filter = "[库存类别] = '" & Vals(0) & "' And [品名] = '" & Vals(1) & "' And [零件号] = '" & Vals(2) & "'"
Dim dr As DataRow = DataTables("库存总表").Find(Filter)

For Each t As Col In Tables("生产进度表").Cols
    Dim r As Row = Tables("生产进度表").Current
    If t.Name = "零件名称" Then
        r("零件名称") = dr("品名")
        r("零件号") = dr("零件号")
    ElseIf t.Name = "工艺原料" Then
        r("工艺原料") = dr("零件号")
    End If
    e.Form.Close()
Next