共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]数据源
1楼
苏州老街 发表于：2024/11/19 18:06:00老师好，按下按钮集合代码就有下面报错。
这是按钮代码
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView3")
Functions.Execute("按钮集合",tv)
下面是内部函数
Dim tv As WinForm.TreeView = Args(0)
tv.Nodes.Clear
Dim nd As WinForm.TreeNode
Dim name As String
Dim sname() As String
For Each f As WinForm.Form In Forms
name = f.Category
sname = name.Split("\")
Dim frmnd As WinForm.TreeNode
If sname.Length = 1 AndAlso sname(0) = "" Then
frmnd = tv.Nodes.Add(f.name)
Else
If tv.Nodes.Contains(sname(0)) = False Then
nd = tv.Nodes.Add(sname(0))
Else
nd = tv.Nodes(sname(0))
End If
For i As Integer = 1 To sname.Length - 1
If nd.Nodes.Contains(sname(i)) = False Then
nd = nd.Nodes.Add(sname(i))
Else
nd = nd.Nodes(sname(i))
End If
Next
frmnd = nd.Nodes.Add(f.name)
End If
Dim opened = f.Opened
f.Open
For Each c As object In f.controls
try
frmnd.Nodes.Add(c.name, c.name & " | " & c.Text)
catch ex As exception
frmnd.Nodes.Add(c.name)
End try
Next
If opened = False Then f.Close
Next
此主题相关图片如下：2024-11-19 15 28 26.png
2楼
有点蓝 发表于：2024/11/19 19:55:00应该是某个窗口打开的时候，窗口里面的事件代码有问题导致。
3楼
苏州老街 发表于：2024/11/20 18:07:00老师，控件集合时报错
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文件夹.rar |
此主题相关图片如下：2024-11-20 17 58 15.png
[此贴子已经被作者于2024/11/21 6:09:45编辑过]
4楼
有点蓝 发表于：2024/11/21 8:45:001、【人事档案录入】窗口很多地方用到【人事档案】窗口的控件，但是没有判断【人事档案】窗口是否打开
2、【人事档案】窗口afterload
t2.Anchor = system.Windows.Forms.AnchorStyles.Top Or system.Windows.Forms.AnchorStyles.Bottom '锚定
5楼
苏州老街 发表于：2024/11/21 15:33:00老师，还是不行
6楼
有点蓝 发表于：2024/11/21 15:44:00提示什么错误？
7楼
苏州老街 发表于：2024/11/21 18:02:00老师好，上面完整的代码应该是怎样的。
8楼
有点蓝 发表于：2024/11/21 19:31:00其它窗口需要用到窗口1的控件，都必须放到判断窗口是否打开里
if forms("窗口1").opened then
所有窗口1控件的使用都必须放到这个if里面
end if
9楼
苏州老街 发表于：2024/11/21 20:18:00谢谢老师
共9 条记录, 每页显示 10 条, 页签:
[1]