窗体采用了代码动态生成任务栏页面和名称
Dim str As String = ""
For Each frm As WinForm.Form In forms
str &= frm.Name & "|"
Select Case e.Link.Name
Case e.Link.Name
Dim lsts As New List(Of String)
lsts= DataTables("党员发展流程").getvalues("对应窗体名称","子任务='" & e.Link.Name & "'")
For Each s1 As String In lsts
If s1.Length>0 Then
If str.Contains(s1)=True Then
Forms("" & s1 & "").open
End If
End If
Next
End Select
Next
上述代码实现了 遍历当前项目所有窗体名称，如果党员发展流程表中对应任务名称有 窗体名称 点击e.Link.Name对应就打开这个窗体 反之就不做动作
想改进一下，当不存在对应窗体名称的窗体时，想实现e.Link.Name连接不可选，怎么写代码呢？
加好友 
发短信
Post By：2020/4/18 22:25:00 [显示全部帖子]
