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

    ....................

else if e.form.dropcol.name="YYY" then

If e.Node.Level = 0 OrElse e.Node.Level = 1 Then '如果是顶层节点
    Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim dr As DataRow = DataTables("库存总表").Find("[库存类别] = '" & Vals(0) & "' And [品名] = '" & Vals(1) & "' And [零件号] = '" & Vals(2) & "'")
If dr IsNot Nothing Then
    If CurrentTable.Name = "入库表" Then
        Dim r As Row = Tables("入库表").Current
        r("品名") = dr("品名")
        r("零件号") = dr("零件号")
        r("炉号") = dr("炉号")
        r("品牌") = dr("品牌")
        r("储位") = dr("储位")
    End If
End If
e.Form.DropDownBox.CloseDropdown()

为什么我改成下拉模式了，选择后 品名不会自动填写呢