Foxtable(狐表)用户栏目专家坐堂 → 【分享】根据数据表用代码生成任务栏页面及任务内容,多大60个任务,怎么实现点对应的任务内容后,打开对应窗体名称的窗体(因数量达60以上,逐一绑定添加有点不现实)。


  共有2963人关注过本帖树形打印复制链接

主题:【分享】根据数据表用代码生成任务栏页面及任务内容,多大60个任务,怎么实现点对应的任务内容后,打开对应窗体名称的窗体(因数量达60以上,逐一绑定添加有点不现实)。

帅哥哟,离线,有人找我吗?
liufucan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:649 积分:5730 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2020/4/18 22:25:00 [显示全部帖子]

For Each frm As WinForm.Form In forms
    str &= frm.Name & "|"
next

    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

感觉应该是这样吧


 回到顶部