- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 找不到控件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193888)
-- 发布时间：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 |
-- 发布时间：2024/10/24 10:58:00
--
控件是窗口2的，不是窗口1的
Forms("窗口2").Controls(txt).text = pd.Text
-- 发布时间：2024/10/24 11:02:00
--
希望适用于多个表，Forms("窗口2")如何用通用代码替代？
-- 发布时间：2024/10/24 11:16:00
--
e.Form.DropDownBox.Form.Controls(txt).text = pd.Text