标题：找不到控件

1楼

1234567 发表于：2024/10/24 10:47:00

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

2楼

有点蓝 发表于：2024/10/24 10:58:00

控件是窗口2的，不是窗口1的

Forms("窗口2").Controls(txt).text = pd.Text

3楼

1234567 发表于：2024/10/24 11:02:00

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

4楼

有点蓝 发表于：2024/10/24 11:16:00

e.Form.DropDownBox.Form.Controls(txt).text = pd.Text

共4 条记录, 每页显示 10 条, 页签: [1]