我做了一个目录树窗口，名称为员工姓名，编写了代码：

If e.Node.Level = 1 Then \'如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim tr As Row = Tables("日报表").Current
    Dim dr As DataRow = DataTables("员工档案").Find("部门 = \'" & ps(0) & "\' And 姓名 = \'" & ps(1) & "\'")
    If dr IsNot Nothing Then \'如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        tr("姓名") = dr("姓名")
        e.Form.DropDownBox.Value = tr("姓名") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  \'关闭下拉目录树
End If

然后在日报表的表属性中增加：

Tables("日报表").Cols("姓名").DropForm = "员工姓名"

但是我想在出勤表的表属性中增加：结果运行不了，这个应该如何修改目录树窗口中的代码

Tables("出勤表").Cols("姓名").DropForm = "员工姓名"

 我好奇，你为什么还要再查一次

If e.Node.Level = 1 Then \'如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\\")
    e.Form.DropDownBox.Value = ps(1)
    e.Form.DropDownBox.CloseDropdown()  \'关闭下拉目录树
End If