主题：找不到控件

If e.Node.Level = 1 Then
        e.Form.DropDownBox.Value = e.Node.Text
        Dim tr As WinForm.TreeView
        Dim pd As WinForm.TreeNode
        tr = Forms("窗口1").Controls("TreeView1")
        pd = tr.SelectedNode.ParentNode
        Dim txt As String = e.Form.DropDownBox.name
        txt = txt.Remove(txt.Length - 2 , 1)
        e.Form.Controls(txt).text = pd.Text
        e.Form.DropDownBox.CloseDropdown()
    End If
此主题相关图片如下：3 (2).png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目8.zip

希望适用于多个表，Forms("窗口2")如何用通用代码替代？